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Fourth Edition (September 1976) 


This is a major revision of, and obsoletes, SC28-6874-2 and Technical Newsletters 
SN21-5329 and SN21-5259, Changes are indicated by a vertical line at the left of the 
change. 


This edition applies to the System/3 program versions listed below and to all subsequent 
versions and modification levels until otherwise indicated in new editions or technical 
newsletters: 


System/3 Version Modification Program Number 
Model 6 13 00 §703-FO1 
Model 10 13 00 5702-FO1 
Model 12 2 00 5705-FO1 
Model 15 5 00 5704-FO1 
Model 15 1 00 5704-FO2 


Changes are continually made to the specifications herein; before using this publication 
in connection with the operation of IBM Systems, consult the latest /BM System/3 
Bibliography, GC20-8080, for the editions that are applicable and current. 


Use this publication only for the purposes stated in the Preface. 


Publications are not stocked at the address below. Requests for copies of IBM 
publications and for technical information about the system should be made to your 
IBM representative or to the IBM branch office serving your locality. 


This publication could contain technical inaccuracies or typographical errors. Use the 
Reader’s Comment Form at the back of this publication to make comments about 

this publication, If the form has been removed, address your comments to IBM 
Corporation, Publications, Department 245, Rochester, Minnesota 55901. IBM may 
use and distribute any of the information you supply in any way it believes appropriate 
without incurring any obligation whatever. You may, of course, continue to use the 
information you supply. 


© Copyright International Business Machines Corporation 1972, 1974, 1976 


This publication describes the System/3 FORTRAN 1V 
language and the use of the System/3 FORTRAN !V proces- 
sor to run programs written in the language. 


This publication is intended to be used as a reference 
manual by persons writing programs in the System/3 FOR- 
TRAN IV language. You should have some knowledge of 
FORTRAN before using this publication. A useful source 
of this information is the set of programmed instruction 
texts describing the System/3 FOR™ RAN IV language, 
Order Numbers SR 29-5015 througk SR29-5019. 


System/3 FORTRAN IV contains those features defined 
in American National Standard Bas c FORTRAN X3.10- 
1966; language extensions supported by IBM 1130 Basic 
FORTRAN IV; and additional capabilities previously 
available only with certain 1BM Full FORTRAN IV com- 
pilers. 


The System/3 FORTRAN IV processor is a program product 
consisting of a compiler and a library of mathematical func- 
tions, service subprograms, and commercial subroutines. 


The System/3 FORTRAN IV program product operates 

on the IBM System/3 Model 10 Disk System, IBM System/3 
Model 6, IBM System/3 Model 12, and on the IBM 
System/3 Model 15. 


Preface 


The IBM System/3 Model 8 is supported by System/3 
Model 10 Disk System control programming and System/3 
Model 10 FORTRAN IV. The facilities described in this 
publication for the Model 10 are also applicable to the 
Model 8, even though the Model 8 is not referenced. Some 
of the devices discussed in this publication might not be 
applicable for the Model 8. Model 8 users shou!d be 
familiar with the contents of /BM System/3 Model 8 
Introduction, GC21-5114. 


All references to the System/3 Model 15 in this publication 
apply to System/3 Models 15A, 15B, 15C, and 15D unless 
otherwise specified. 


Direct Access Storage for Models 12 and 15 


The IBM 3340 Direct Access Storage Facility attaches to 
System/3 Model 12 and to System/3 Models 15B, 15C, 
and 15D. Also, the IBM 3344 Direct Access Storage 
attaches to System/3 Model 15D. Certain areas on the 
3340 and 3344 disks are treated as 5444 disks. These 
areas, known as 5444 simulation areas or simulation areas, 
are used for the program libraries and can also be used for 
data files. The remainder of the disk space, known as main 
data area, can only be used for data files. 


References in this manual to 5444, 5445, and 3340 are to 
be interpreted according to which disk storage device(s) 

is (are) attached to the system. Use the following table to 
determine the meaning of the reference: 







Models 12, 15B, 
15C Meaning 





Reference 


Model 15A Meaning 











5444 Disk Storage Drive 5444 simulation area 


on 3340 








5445 Disk Storage Main data area on 3340 






Not applicable Main data area on 3340 


For further information, see the appropriate publications 
listed under Re/ated Publications. 


IBM System/3 5448 Disk Storage Drive 


The IBM System/3 5448 Disk Storage Drive on System/3 
Models 8 and 10 uses the same program product support 
as the IBM 5445 Disk Storage. However, a separate system 
control prograrn feature is required for the 5448. In 
general, references to 5445 in this manual also apply to 
5448. For specific information about 5448 operating 
characteristics and programming support, see the /BM 
System/3 5448 Disk Storage Drive Program Reference 
Manual, GC21-5168. 








Model 15D Meaning 


Simulation area on 
3340 or 3344 


Main. data area on 3340 
or 3344 


Main data area on 3340 
or 3344 


Related Publications 


Publications containing information about the System/3 
FORTRAN IV program product, System/3 Model 6, 
System/3 Model 8, System/3 Model 10 Disk System, 
System/3 Mode! 12, and System/3 Model 15 are: 


































Order Number of Publication for | 
: T | 
System/3 | 
System/3 System/3 Model 10 System/3 System/3 
Manuals Model 6 Model 8 Disk System Model 12 Model 15 





































FORTRAN IV | 
Commercial Subroutines SC28-6875 | 
re wd at oe — eT cea 
Introduction GA??1-9122 GC21-5114 GC21-7510 | GC21-5116 GC21-5094 | 
Operator’s Guide GC?1-7501 GC21-7634 GC21-7508 | GC21-5144 GC21-5075 
System Generation 
Reference Manual GC21-5126 GC21-7616 | 
c te ace ee 
Hait Guide 
(System Messages) GC21-7541 GC21-7540 GC21-5145 GC21-5076 
pe nnn a pe ee striata iene plans ~[sroat01 | a 
System Control 5704-FO1 
Programming Reference ‘ GC21-5077 
(Opstation Contra GC?1-7516 GC21-7512 GC21-5130 5704-FO2:! 
Language) GC21-5162 
pte 8 Pct tn moet memetethee sae cae Pee eset 
Overlay Linkage Editor 
Reference Manual GC21-7561 
Disk Concepts and 
Planning Guide GC21-7571 


GC21-5142 






User’s Guide 












Components 



















GA34-0001 GA21-9209 GA21-9103 GA21-9236 GA21-9193 


GC21-5771 


Reference Manual 


3340 Reference 





3741 Reference 
Manual 


5704-FO2 
only 
GC21-5113 













' Availability date for GC21-5162 manual is not the same as for this manual. Orders sent shortly after the issue date 
of this manual might be considered invalid. 
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System/3 FORTRAN IV consists of a /anguage and a 
processor. 


The System/3 FORTRAN IV languige is especially useful 
in writing source programs for applications that involve 
mathematical computations and other manipulation of 
numerical data, Source programs written in the System/3 
FORTRAN IV language consist of a set of statements 
constructed fram the language elemants described in this 
publication, 


The processor consists of a FORTRAN compiler and a 
library ef FORTRAN subprograms that perform operations 
required during program execution, In a process called 
compilation, the FORTRAN compiler analyzes the source 
program statements and translates them Into an object 
module, \n a process called /ink-ed/:ing, the object module 
\s combined with FORTRAN subprograms from the library, 
and with any user-written subprograms, and becomes a 
load medule, suitable for execution. In a process called 
load module execution, the \oad module is run by the 
System/3 System Control Program. 


Part 1. System/3 FORTRAN IV Language 


System/3 FORTRAN IV Language 


3 


Chapter 1. FORTRAN Statements 


Source programs consist of a set of statements from which 
the compiler generates instructions, constants, and storage 
areas. A given FORTRAN statemert: 

@ Causes certain operations to be performed. 

@ Specifies the nature of the data teing handled. 

@ Specifies the characteristics of the source program. 
FORTRAN statements are composed of certain FORTRAN 
keywords used in conjunction with the elements of the 


language: constants, variables and expressions. 


There are two broad classes of FORTRAN statements—exe- 
cutable statements and nonexecutable statements: 


Class Purpose Example 
Executable Performs calculations A=B+C 
Statement 
Transfers data between main storage and an input/output device WRITE, READ 
Controls operation of an input/output device REWIND 
Changes the order of execution in the program GOTO 
Terminates program execution STOP 
Nonexecutable Provides initial values for variables and arrays DATA 
Statement 
Specifies the form in which data is to appear FORMAT 
Defines the properties of variables, arrays, and functions REAL+#8 
Deciares th? operations to be performed by statement functions CALC(IJ)=3*1/J 
Names and specifies arguments for subprograms SUBROUTINE SUBS(A.! 
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Some examples of FORTRAN statements and their effects 
are: 


Statement Meaning 


A=96.0 Assigns the value 96.0 to the variable 
named A. 
C-A/3 The slash (/) indicates division. Thus, 


this statement means divide A by 3 and 
set C equal to the result. Using the data 
of the previous example, C would be 
given the value 32. 


For purposes of clarity in coding FORTRAN elements in 
this publication, we use uppercase letters to inclicate actual 
coding, and lowercase letters to indicate a value that must 
be supplied. 


CODING FORTRAN STATEMENTS 


Although the usual form of input to the computer is a 
deck of punched cards, the initial coding of FORTRAN 
statements is generally on a coding sheet. The FORTRAN 
coding form, order number GX28-7327, is shown in 
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Columns 1-5—Statement Number 


Columns 1-5 can be used to enter a number by which the 
statement is referred to. Statement numbers can be assigned 
In any order; the sequence of operations depends only on 
the order of the statements, not on treir statement numbers. 
Blanks and leading zeros in statement numbers are ignored 
by the FORTRAN processor. Thus, 


00090 

90 

098 0 
and 90 


are equivalent, However, a given statement number can be 
assigned only once in a program unit. 


Column 1-Comment Statement 


Comments that explain the program can be written in 
columns 2:72 of a line having a C in column 1, Comments 
are not precessad by the FORTRAN complier, but are 
printed in the compiler listing. A cornment statement can- 
not appear between continuation lines of a statement, 


Calumn 6—Centinuation 


If a statement is teo lang for one line, it can be continued 
on as Many as 19 successive lines by |placing a character 
ether than zere or a blank in column 6, If desired, the 
characters In column 6 ean be used to indicate the order of 
cantiruation lines; that Is, the character A can be used for 
the first continuation line, B for the 1econd, etc. A blank 
or zera in calumn 6 indicates that the line is the initial line 
of a statement, 


Columns 7-72—FORTRAN Statement 


The FORTRAN statement must be written only in columns 
7-72 of each line of the coding form. 


Blanks can be used to improve the readability of a FOR- 
TRAN program because the compiler ignores blanks except 
in certain limited cases (literal fields of FORMAT or DATA 
statements and column 6 of a card). 
Thus 

A=B(I,J)-D-(C/E)-F**K 
and 


A=B(I,J)-D-(C/E)-F*#*k 


are equivalent. 


Columns 73-80 (or 73-96)—Program Identification 


Columns 73-80 (or 73-96 for 96-column cards) can be used 
for identifying information. These columns are not ana- 
lyzed by the compiler, although the information in columns 
73-80 is printed in the compiler listing. When 96-column 
cards are used, columns 81-96 are not printed in the com- 
piler listing. 
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ELEMENTS OF THE LANGUAGE 


In order to write FORTRAN programs, it is necessary to 
learn the rules for writing the following elernents of the 
language: 


Name of Element 
Constant 
Variable 

Array eloment 
Mathematical 
expression 


Assignment 
statement 


Control statement 


Specification 
statement 


Input/Output 
statement 


Subprogram 
statement 


Purpose 
Specifies a numeric value 
Refers to a particular area in storage 


A member of a collection of data that has identical 
attributes 


Causes mathematical computations 


Assigns a quantity to a variable or array element 


Affects the order in which statements are executed 


Provides information about the data used in the source 
program, and the amount of storage required for it 


Gets data into the computer or transfers data to an 
output device 


Performs a series of statements to be performed 


ORDER OF STATEMENTS IN A FORTRAN PROGRAM 


The order of statements in a FORTRAN program is as 
follows: 


6. 


Subprogram statement for a subprogram. PROGRAM 
statement, if any, for a main program. 


IMPLICIT statement, if any. 


Other specification statements, if any. 


Statement function definitions, if any, to describe 


statement functions. 


Executable statements, at least one of which must 


be present. 


END statement, to indicate the end of the program. 


FORMAT and DATA statements can appear any where 
after the IMPLICIT statement, if present, and before the 
END statement. DATA statements, however, must follow 
any specification statements that contain the same variable 
or array names. 
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Examples 
27 or 3.14159 
Xor ¥ 


X(I) or Y(3,2) 


A+B or 3«J 


A= B/C 


DO or GO TO 


IMPLICIT, REAL, 


COMMON 


READ , WRITE 


SUBROUTINE, 
FUNCTION 


FORTRAN provides a means of expressing numeric con- 
stants, variable quantities, and array elements. The rules 
for expressing these quantities are quite similar to the rules 
of ordinary mathematical notation. However, each of these 
quantities can be expressed in one of two modes: integer 
or real (floating-point). 


Integer and Real Calculations 


Floating-point calculations are carried! out between two 
real numbers in one of two degrees o” precision--single 
precision (REAL*4) or double precis on (REAL *8)—that 
can be specified by the user. The number of digits main- 
tained for single precision is approximately 7, and for 
double precision approximately 17. Some typical floating- 
point calculations are: 


Arithmetic Result of 
Operation Calculation 
A=.4301/1.7 A=,253 
B=5./2. B=2.5 

C= 1.6x.7 C=1.12 
D=-2.7+1.2 D=--1.5 


In floating-point calculations roundirig does not occur; 
digits in excess of the precision are dropped. 


Integer calculations are carried out differently; no decimal 
remainders are retained or used in computations. For 
example: 


Arithmetic Result of 

Operation Calculzition 

1=5/2 1=2 (instead of 2.5, because 
the .5 is truncated) 

1=5/2+7/2 |=5 (intermediate truncation 
computes this as 2+3 
rather than 12/2) 

J=5x2 J=0 

K=-4+1 K=-3 
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Data Types and Data Description 

FORTRAN deals with arithmetic, literal, and hexadecimal 
data. Arithmetic data can be represented as a real or inte- 
ger number, a constant, a variable, or an array (a group of 
related members that have related attributes). 


Operation Symbols 


Operation symbols used in FORTRAN are: 


+ Addition 

- Subtraction 

* Multiplication 
/ Division 

** Exponentiation 


To express the arithmetic operation A=.4301 divided by 
1.7, the following statement can be used: . 


A=.4301/1.7 


To express the operation J equals the product of 5 and 2, 
this statement can be used: 


J=5*2 


CONSTANTS 

A constant is a number that is used in computations with- 
out change during execution of the program. It appears 
in its actual numeric form in the source statement. For 
example, in the statement 


J=3*X 


3 is a constant because it appears in actual numeric forrn, 


Constants, Variables, and Array Elements 


Four types of constants can be specified in FORTRAN: 


The rules for writing each of these constants are given in the 


Integer constant—written without a decimat point or 


exponent 


Real constant—written with a decimal point and/or an 


exponent 


Hexadecimal constant—the character Z followed by the 
hexadecimal characters 0 through 9 and A through F. 


Literal constant—a string of alphabetic, numeric, and/or 


special characters enclosed in apostrophes 


following sections. 


Integer Constants 


An integer constant is a whole number written without a 
decimal point, using the decimal digits 0, 1,..., 9. A pre- 


ceding + or - sign is optional. An unsigned constant is 
assumed to be positive. 


All integer constants occupy four storage locations (bytes). 


The magnitude of an integer constant cannot exceed 
2,147,483,647 (23! -1). 


Examples: 


Valid Integer Constants 


0 

+9 

186 
-327 

6 

45 
1236456 


b (blank) is ignored by the orocessor 


Invalid Integer Constants Reason 


4.321 Contains a decimal point 
-3,675 Contains a comma 
5436578656 Exceeds the magnitude per- 


mitted by the System/3 
FORTRAN IV processor 


Real Constants 
A real constant is any of the following: 


1. A basic real constant is a number written with a 
decimal point, using the decimal digits 0, 1,..., 9. 
A preceding + or - sign is optional. An unsigned con- 
stant is assumed to be positive. 


2. A basic real constant followed by aD or E, followed 
by an exponent. The exponent is a signed or unsigned 
one- or two-digit integer constant. An unsigned ex- 
ponent is assumed to be positive. 


An integer constant followed by a D or E, followed 
by an exponent. 


In the exponent, the letter E specifies a single-precision 
constant occupying four storage locations (bytes), and the 
letter D specifies a double-precision constant occupying 
eight storage locations. Unless it contains aD exponent, a 
real constant always occupies four storage locations. 


Precision: Single precision—6 hexadecimal digits, or 
approximately 7.2 decimal digits. 


Double precision—14 hexadecimal digits, or 
approximately 16.8 decimal digits. 


Magnitude: Single-precision and double-precision con- 
stants have the same magnitude limitations: 
0, or 167°° (approximately 1077®) through 
16°? (approximately 107°). 


The decimal exponent permits the expression of a real 
constant as the product of a basic real constant or integer 
constant times 10 raised to a desirecl power. 


Examples: 


Valid Real Constants 
(single precision) 


Equivalent To 


+0. 
-999.9999 
7.0E+0 7.0 x 10° = 7.0 


19761.25E+1 19761.25 x 10' = 197612.5 


7,3 | 
7.0E3 7.0 x 10° = 7000.0 
7.0E+03 \ 
7E-03 7.0 x 1073 = 0.007 


21.4354657687 Note: Tis level of precision can- 
not be accommodated in four 
storage locations. Positions to 
the right of the decimal point 
that cannot be accommodated 


are truncated. 


Valid Real Constants 
(double precision) Equivalent To 
1234567890123456.D-93 


. 123456 7890123456 x 10777 


7.9003 

7.9D+03 7.9 x 10° = 7900.0 
7.9D+3 

7.9D0 7.9x 10° = 7.9 
7D03 7.0 x 10° = 7000.0 


Invalid Real Constants Reason 


1 Missing a decimal point or ex- 
ponent) 
3,471.1 Embedded comma 


1.E Missing an integer constant 
following the E 


1.2E+113 E is followed by a three-digit 
integer constant; must be one- 
or two-digits 

23.5E+97 Magnitude outside the allowable 
range; 23.5 x 10°” greater than 
16° 3 

21.3E-90 Magnitude outside the allowable 


range; 21.3x 107°° less than 
is? 


Hexadecimal Constants 


A hexadecimal constant is used only in DATA initialization 
statements to specify initial values for variables and array 
elements. A hexadecimal constant contains the character 
Z followed by a hexadecimal number (0, 1,..., 9, A, B, C, 
D, E, F). 


In System/3, the basic unit of storage is an 8-bit byte. Under 
this sytem, one byte contains two hexadecimal digits. The 
internal (binary) form of each of the 16 possible hex digits 

is as follows: 


Hex Binary Hex Binary 
0 0000 8 1000 
1 0001 9 1001 
2 0010 A 1010 
3 0011 B 1014 
4 0100 C 1100 
5 0101 D 1101 
6 0110 E 1110 
7 0111 F 1147 


=“ 
= 
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If a constant with an odd number of digits is specified, a 
leading hexadecimal zero is added on the left to fill the stor- 
age location. 


Examples: 


The eight-digit hexadecimal number Z1C49A2F 1 represents 
the bit string 0001 1100 0100 1001 1010 0010 11110001 


The seven-digit number ZBADFADE represents the bit 
string 0000 1011 1010 1101 1111 1010 1101 1110. The 
first four zero bits are implied because an odd number of 
hexadecimal digits was written. 


Further information about hexadecimal constants can be 
found in the section that describes the DATA initialization 
statement. 


Literal Constants 


A literal constant is a string of alphabetic, numeric, and/or 
special characters, enclosed in apostrophes. 


Each character requires one byte of storage. Note that the 
blank is considered a character. The appearance of a blank 

is significant only in literal constants and in statement con- 
tinuation requirements. |f an apostrophe is to appear in the 
literal, it must be represented by two consecutive apostrophes 
with no intervening blank. 


Literals can be used as data initialization values in the DATA 
statement. Rules for this usage are presented in the Chap- 
ter 7 description of the DATA statement. 


Examples: 


"X-COORDINATE 
"3.14159! 
"FRANCIS BACON!'S 


Y~COORDINATE Z-COORDINATE! 


"THAMLET!' 
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VARIABLES 


A FORTRAN variable is a data item, identified by a name, 
that occupies a storage area. The value specified by the 
name is always the current value stored in the area, 


For example, in the statement 
A=5.0+B 


both A and B are variables. The value of B was determined 
by some previously executed statement. The value of A is 
calculated when the above statement is executed, arid de 
pends on the previously calculated value of B. 


As with constants, a variable can be integer or real, depend- 
ing on whether the value it represents is integer or real, 
respectively. Because a variable represents an area of stor- 
age, it is assigned a length, either implicitly or explicitly. 

A real variable can have a length of either four or eight 
bytes. An integer variable can have a length of either two 
or four bytes. 


In order to distinguish between variables that derive their 
value from an integer, as opposed to areal number, the 
rules for naming each type of variable are different, al- 
though these rules can be overridden. 


Variable Names 


A variable name consists of from 1 to 6 alphabetic or 
numeric characters, of which the first must be alphabetic. 
In the context of this discussion, the character $ is con- 
sidered an alphabetic character. Blanks in a variable name 
are ignored. 


Examples: 


I 

ABCD 
BILL23 
1$2 

ITEML 
ITEM 1 
ITEM 1 


In the above list, the last three names are considered 
identical. 


The rules for naming variables allow for extensive selectivi- 
ty. In general, it is easier to follow the flow of a program if 
meaningful names are used wherever possible. For instance, 
to compute distance it would be possible to use the state- 
ment: 


A=B+C 

but it would be more meaningful to write: 
D=R*T 

or: 


DIST=RATE*TIME 


Variable Types 


The type of a variable corresponds to the type of the data 
the variable represents. Variable type can be specified in 
three ways: predefined, implicitly, or explicitly. 


Predefined Convention 


If the first character of the variable name is t, J, K, L, M, or 
N, the variable is considered to be an integer variable of 
length 4. If the first character of the variable name is not 
I, J, K, L, M, or N, the variable is a real variable of length 4. 


Implicit Specification 


By use of the IMPLICIT statement, the FORTRAN proces- 
sor can be told to ignore the predefived convention for 
variable names whose initial letters are specified in the 
IMPLICIT statement. Thus, variables whose names begin 
with the letters | through N can be cleclared as type real, 
and those which begin with A through H or O through Z 
can be declared as type integer. !n eddition, variables can 
be declared to be one of the optione! lengths: two bytes 
for integer variables, or eight bytes for real variables. The 
rules for using the IMPLICIT statement are given later. 


Explicit Specification 


Explicit specification of type (and, optionally, length) is 
made for individual variables by using the INTEGER or 
REAL type-specification statements. These statements 
override predefined and IMPLICIT specifications. The 
rules for using these statements are given later. 


ARRAYS 


An array is an ordered set of data items identified by a 
single name. A member of the array, called an array element 
is identified according to its position, by a quantity cailed 

a subscript. 


Arrays, like variables and constants, have a type associated 
with them. The rules for naming arrays are the same as the 
rules for naming variables. The type of an array name is 
determined by the same conventions that govern the type 
of avariable name. Each element of an array is of the type 
and length specified for the array name. 


Assume the following elements are contained in an array 
named NEXT: 


15 
12 
18 
42 
19 


Suppose you want to refer to the second element in the 
group; in ordinary mathematical notation this would be 
NEXT,. In FORTRAN this would be 


NEXT(2) 
The quantity 2 is the subscript. Thus 


NEXT(2) has the value 12 
NEXT(4) has the value 42 


Similarly, ordinary mathematical notation might use NEXT. 
to represent any element of the set, NEXT. In FORTRAN, 
this might be written as NEXT(!) where | equals 1, 2, 3, 4, 
or 5. 


The array could be two dimensional, as for example, the 
array JO: 


Column 1 Column 2 Column 3 
Row 1 82 4 7 
Row 2 12 13 14 
Row 3 91 1 31 
Row 4 24 16 10 
Row 5 2 8 2 
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Suppose you want to refer to the element in row 2, column 
3; this would be 


JO(2,3) 
2 and 3 are the subscripts. Thus, 


JO(2,3) has the value 14 
JO(4,1) has the value 24 


Similarly, ordinary mathematical notations might use JO.. 
to represent any element of the set JO. tn FORTRAN, 
this might be written as JO(1,J) where | equais 1, 2, 3,4, or 
5 and J equals 1, 2, or 3. 


The above notation can extend to three-dimensional arrays: 


JO(1,2,3) 
JO(I,J,K) 
JO(5,J,16) 


The use of an array in the source program must be preceded 
by its declaration in either a DIMENSION statement, a 
COMMON or GLOBAL statement, or a type specification 
statement specifying the size of the array. These statements 
are explained later. 


Arrangement of Arrays in Storage 


An array is stored in ascending storage locations, with the 
value of the first of its subscripts increasing most rapidly, 
and the value of the last subscript increasing least rapidly. 


For example, the array named A, described by one subscript 
that varies from 1 to 5, appears in storage as follows: 


A(1) A(2) A(3) A(4) A(5) 


The array named B, described by two subscripts, with the 
first varying from 1 to 5 and the second from 1 to 3, appears 
in storage as follows: 


B(1,1) B(2,1) B(3,1) B(4,1) B(5,1) B(1,2) B(2,2) B(3,2) 
B(4,2) B(5,2) B(1,3) B(2,3) B(3,3) B(4,3) B(5,3) 


Note that B(1,2) and B(1,3) follow in storage B(5,1) and 
B(5,2), respectively, 


The following list is the order of a three-dimensional array, 
C(3,3,3): 


C(1,1,1) C(2,1,1) C(3,1,1) C(1,2, 1) C(2,2,1) C(3,2,1) 
C(1,3, 1) C(2,3, 1) C(3,3,1) C(1,1,2) C(2, 1,2) C(3, 1,2) 
C(1,2,2) C(2,2,2) C(3,2,2) C(1,3,2) C(2,3,2) C(3,3,2) 
C(1, 1,3) C(2,1,3) €(3,1,3) C(1,2,3) C(2,2,3) C(3, 2,3) 
C(1,3,3) C(2,3,3) C(3,3,3) 
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| Subscripts 


A subscript is an integer quantity or a set of integer 
quantities separated by commas, enclosed in parentheses, 
and written immediately after the array name. The 
subscript is used to identify a Particular element of an 
array. The number of subscript quantities in a subscript 
must be the same as the number of dimensions of the 
array. A maximum of three subscript quantities can 
appear in a subscript. 


Form of Subscripts 


A subscript must be in one of the following forms, ‘v repre- 
sents any unsigned nonsubscripted integer variable, andc 
and c! any unsigned integer constant): 


v 
c 

vtec or v-c 

c*V 

c*vtc! or cxv-c! 


Whichever subscript form you use, the evaiuated result 
must be greater than 0, less than or equal to the range 
of the array, and less than or equal to 32,767. The 
evaluated result of a subscript is the product of all 
subscript quantities multiplied by the length of an 
element for the associated array. For example, if the 
subscript (200,4) is used to reference an element of 

an integer “4 array, the evaluated result is the product 
of the subscript quantities (200 x 4 = 800), multiplied 
by the length of an element (800 x 4 = 3200). 


Examples: 
Valid Form of 
Subscripts Subscript 
(IMAX) v 
(19) c 
(JOB+2) vtc 


(NEXT-3) v-c 
(8*IQUAN) — cxy 


(5*L+7) c*vte! 

(4*M-3) c*v-c! 

Invalid Reason 

Subscripts 

(-1)} The variable cannot be signed. 

(0) A subscript quantity cannot assume the 
value 0. 

(-2*J) The constant must be unsigned. 

(1(3)) A subscript cannot be subscrip ted. 

(K*2) For multiplication, the constant must 
precede the variable, thus 2*K is correct. 

(2+JOB) For addition, the variable must precede 


the constant; thus, JOB+2 is correct. 
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ARITHMETIC ASSIGNMENT STATEMENTS 


The arithmetic assignment statement defines a numeric 
calculation; it resembles a conventional arithmetic formula. 


The general form of an arithmetic assignment statement is: 
a=b 
where 
ais avariable or array element. 
b is an expression as defined under Expressions. 
Examples: 
The following are valid arithmetic assignment statements: 


A=B+C 
D(I)=E(1)+2.-F 


In an arithmetic assignment statement, the equal sign 
means /s to be replaced by rather than is equivalent to. This 
distinction is important; for example, suppose an integer 
variable | has the value 3. Then, the statement 


e144 
would give | the value 4. This feature enables the program- 


mer to keep counts and perform other required operations 
in the solution of a problem. 


The following is an example of a series of arithmetic assign- 
ment statements: 


Statement Meaning 

A=3.0 Store the value 3.0in A 

B=2.0 Store the value 2.0 in B 

C=A+B Add the values in A and B and store in 
C(3.+2.=5.) 

C=C+1 Add 1. to the value in C(5.+1.=6.)} 
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EXPRESSIONS 


An expression in FORTRAN is a sequence of constants, 
variables, array elements, and operation symbols that indi- 
cates a quantity or a series of calculations. !t must be 
formed according to the rules for constructing expressions. 
{t can include parentheses and can also include functions 
(which will be discussed fater). It appears on the right- 
hand side of arithmetic assignment statements and in cer- 
tain types of control and I/O statements. 


Rules for Constructing Expressions 


Because constants, variables, and array elements can be 
integer or real quantities, expressions can contain integer 
or real quantities; that is, two types can appear in the same 
expression. 


tn the following discussion, no mention is made of the rules 
for using integer and real quantities in functions. These 
rules are stated when functions are described and are con- 
sidered as addenda to the following rules. 


1. The simplest expression consists of a single constant, 
variable or array element. If the quantity is an inte- 
ger type, the expression is said to be in the integer 
mode. If the quantity is areal type, the expression 
is said to be in the real mode. 


Examples: 
Expression Type of Mode of 
Quantity Expression 
3 Integer constant Integer 
3.0 Real constant Real 
| Integer variable Integer 
A Real variable Reai 
I(J} Integer array 
elernent liteger 
A(J) Real array 
element Real 


In the last example, note that the subscript, which 
must be an integer quantity, does not affect the mode 
of the expression. The mode of the exoression is 
determined solely by the type of the quantity jtseif. 


Arithmetic Assignment Statements and Expressions 15 


16 


Real exponentiation of a quantity affects the mode 
of the expression; thus: 


l¥*2.3 
l**J 
Ax*l 
A**B 


Real 
Integer 
Real 
Real 


Quantities can be preceded by plus or minus signs 

(+ or -), or can be connected by any of the operation 

symbols (+, ~, *, /, **) to form expressions, provided: 

a. No two operation symbols appear consecutively. 
Quantities connected need not all be tie same 
mode but are converted to the higher mode (in the 
order INTEGER*2, INTEGER*4, REAL «4, 
REAL *«8) before the expression is evaluated. For 
example, in Atl, if A is real and I is integer, | is 
converted to real before the addition. Figure 2 
shows the type and length of the result of arithme- 
tic operations. 
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Figure 2. Determining the Type and Length of the Result of Arithmetic Operations that use Quantities of 
Different Mode 
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b. No operation symbols are assumed; that is, no two 
quantities appear consecutively. 


Examples: 


Valid 
Expressions 


-A+B 
B+C-J 


WJ 


Kel 


Invalid 
Expressions Reason 


At-B Must be written as A+(-B). 


3J 


Must be written as 3*J if multi- 
plication is intended. 


4. The order of operations (hierarchy) must be con- 
sidered when writing FORTRAN statements. The 
hierarchy of operations (from highest to lowest) is as 


follows: 
1. Evaluation of functions 
2. Exponentiation (**) 


3. Multiplication (*) and Divisicn (/) 

4. Addition (+) and Subtraction (-) 

Because of this hierarchy, the expression 
A+B«C/D+E**F-G*H 

will be taken to mean 


Av *Sy EF (G+H) 


Hierarchy determines which of two consecutive operations 
is performed first. If the hierarchy of the first operation is 
higher than or equal to the hierarchy of the second opera- 
tion, the first operation is performed. If it is not, the 
hierarchy of the second operation is compared to the 
hierarchy of the third, etc. Once an operation is executed, 
the next comparison starts with the last operation that was 
skipped. 


In the following examples, the operations are numbered in 
the order in which they will be performed: 


X=A+B*C/Dt+E**F-G*H 
3.1 2 5 4 7 6 


When evaluating consecutive exponentiation operations, the 
order is from right to left: 


X= AxaBaxC+D 
4 8 


Parentheses can be used in arithmetic expressions, as in 
algebra, to specify the order in which operations are to 

be performed. Where parentheses are used, the expression 
within the innermost set of parentheses is evaluated first. 
For example: 


X=((A+B)*C/D+E)**F-G*H 
1 234 5 7 6 


Mode of an Arithmetic Statement 


Expressions must be integer or real; however, the variable 
on the left-hand side of the equal sign in an arithmetic 
statement need not be of the same mode as the expression 
on the right-hand side. 


If the variable on the left is an integer quantity and the 
expression on the rignt is real, the expression is first evalu- 
ated as areal quantity, the portion following the decimal 
point is dropped, and the remainder is converted to an 
integer quantity. Thus, if the result is +3.872, the integer 
stored is +3, not +4. If the variable on the teft is real and 
the expression on the right is integer, the latter is evaluated 
as an integer expression, and the result is converted to real. 


Examoles: 
Arithmetic Result of 
Statement Calculation Contents of Variable 
A=3/2 1 A is assigned the value 1.0 
A=3./2 1.5 A is assigned the value 1.5 
[=3/2 1 lis assigned the value 1 
1=3./2. 1.5 | is assigned the value 1 
1=3./2 1.5 | is assigned the value 1 


Arithmetic Assignment Statements and Expressions 1 
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Normally, FORTRAN statements are executed sequentially. 


That is, after one statement is executed, the statement 
immediately following it is executed. However, it is often 
undesirable to proceed with each statemer t in this manner. 
This chapter describes the statements used to alter sequen- 
tial execution. 


UNCONDITIONAL GO TO STATEMENT 

The general form of the unconditional GO TO statement is: 
GO TO n 

where n is a statement number. 

This statement is used to interrupt sequential execution; it 


indicates the statement that is to be executed next. 


Uses: The GO TO statement transfers cor trol to the 
statement numbered n. 


Considerations/Restrictions: The statement following the 
GO TO statement must have a statement number in order 
to be executed. 


Examples: 


GO TO 16 
GO TO 137 


A coding example is shown below: 


A=3. 

B=4. 

GO TO7 
12 B=2.*A 
7 A=2.*B 


Statement 12 is not executed. After the GO TO statement 
is executed, statement 7 is evaluated and A is assigned the 
value 8.0. 


Chapter 4. Control! Statements 


COMPUTED GO TO STATEMENT 

The general form of the computed GO TO statement is: 
GO TO (ny ,n2,...,N9), | 

where 


nN, ,N2,...,N, are statement numbers 
{is an integer variable having a value of 1 to y. 


This statement also indicates which statement is executed 
next. However, it also gives you the ability to execute 
different statements during various stages in the program. 


Uses: This statement transfers control to the statement 
numbered n,,N2,...%, depending on whether the current 
value of iis 1,2,...,), respectively. If the value of i is less 
than 1 or greater than the number of statement numbers in 
the list, the next sequential statement is executed. 


Considerations/Restrictions: 


1. i must be given a value before the computed GO TO 
statement is executed. 


2. No more than 60 statement numbers can be specified 
in a computed GO TO statement. 


Examples: 

GO TO(5,7,8,2,4),J If Jis 3, transfer control to 

statement 8. 

GO TO(4,4,4,7,8,9),MAX This example iliustrates that 
several values of | can cause a 
transfer of control to the same 
staternent. In this case, when 
MAX has the vaiue 1, 2, or 3, 
control transfers to statement 
4. 
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Further use of the computed GO TO staternent is illustrated 
below: 


. 


A=3. 
B=4, 
C=5. 
K=0 
1 K=K+1 
GO TO(10,20,30),K 
36 F=A-B 
GO TO 12 
20 E=A-C 
GO TO 1 
10 D=B-C 
GO TO 1 


12. CONTINUE 


As a study of this example shows, D, E and F are computed, 
in that order, and control proceeds to statement 12. Of 
course, the examp!« itself is highly simplified; if these were 
the only required calculations in this series, the programmer 
would just compute D, E, and F sequentially, in any desired 
order and without using the Computed GC TO statement. 
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RELATIONAL iF STATEMENT 

The general form of the relational !F statement is: 
IF (a) s 

where 
a is a relational expression 


s is the associated statement—any executable statement 
except a DO statement or another relational IF state- 
ment. 


A relational expression is formed by combining two arith- 
metic expressions with one of the six relational operators: 


-GT. Greater Than 

-LT. Less Than 

.EQ. Equal to 

.NE. Not Equal to 

.GE. Greater than or Equal to 
.LE. Less than or Equal to 


Periods must precede and follow the relational operators, 
as shown. 


Uses: The relational !F statement permits the programmer 
to execute or skip an associated statement depending on 
whether the relational expression is true or false. 


Considerations/Restrictions: The associated statement can 
not be a DO statement or another relational IF statement. 


Examples: 


IF(A.GT.1.0) GO TO 50 
IF(A-B.LT.A+C) A=B 


The associated statement is executed if the relational 
expression is true. Otherwise, the statement following the 
{F statement is executed next. In the second example, if 
the relational expression is true, A is set equal to B and then 
the statement following the IF statement is executed. 


Suppose a series of records, each containing a variable code 
number, |, is being read and processed. Certain of the 
records, appearing at random but with special code numbers 
greater than 99, are to be processed differently. The 
FORTRAN statements to accomplish this might be as 
follows: 


IF(1.GT.99) GO TO 20 


ARITHMETIC IF STATEMENT 
The general form of the arithmetic IF statement is: 
IF (a)ny,n2,n3 
where 
a represents an expression. 
n represents a statement number. 
The expression, a, must be enclosed in parentheses; the 
statement numbers must be separated from one another by 


commas. The same statement number can be specified more 
than once. 


Uses: This statement transfers control to the statement 
numbered n, ,n2, of N3, depending upon whether the value 
of the expression, a, is negative, zero, OF positive, respec- 
tively. 


Considerations/Restrictions: The statement following the 
arithmetic IF statement must have a statement number in 
order to be executed. 


Examples: 


IF(A-B)10,10,7 
IF(A(1)/D)1,2,3 


Control transfers to statement number n,, nz, or n3 
depending on whether the value of a is less than, equal to, 
or greater than zero, respectively. Note that in the first 
example, the same statement, numbered 10, is to be 
executed if a is less than or equal to 0. 


As another example, suppose a value, A, is being computed. 
Whenever this value is positive, you wish to proceed with 
the program. Whenever the value of A is negative, an 
alternative routine starting at statement 12 is to be followed; 
and if A is zero, an error routine at statement 72 is to be 
followed. This may be coded as: 


. 
. 


A=(B+C)/(D**E)-F 


IF(A)12,72,10 
10 
12, + 
72, + 


DO STATEMENT 

The general form of the DO statement is: 
DO n i=m,,m2,m3 

where 


n {end of range) is a statement number iduntitying the 
last statement to be executed in the range of the DO 
statement. 


i {the DO variable) is a non-subscripted integer variable. 


my, (the initial value) is an unsigned integer constant 
greater than O or a non-subscripted integer variable. 
The value of m, should not exceed the value of Me, 

m2(the test value) is an unsigned integer constant 
greater than 0 or a non-subscripted integer variable. 


m3(the increment) is an unsigned integer constant 
greater than O or a non-subscripted integer variable. 
m3 is optional and if omitted is assumed to be 1. If 
m3 is omitted, the preceding comma must also be 
omitted. 
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Uses: The DO statement is used to control multiple 
execution of the statements that physically follow the DO 
statement, up to and including the statement numbered n. 
These statements are called the range of the DO. For the 
first execution of the statements within the DO range, the 
variable, i, is set to the initial vaiue, m,. Each time state- 
ment n (the end of the range) is executed, the value of i is 
increased by the increment value, m3, and checked against 
the test value, mz. If i is less than or equal to m,, the 
statements within the DO range are executed again. If the 
value of ‘ is greater than the value m,, the statement 
immediately following statement number n is executed 
and i becomes undefined. 


Considerations/Restrictions: 


le The statements within the DO range are always 
executed at least once. 


2. A maximum of 25 nested DOs is perrnitted. A nested 
DO cannot extend beyond the range of the containing 
DO statement. 


For example, the following is a valid nest of DOs: 


DO outer DO 
BO inner DO number 1 
‘~DO inner DO number 2 


The following is an invalid nest of DOs. 
DO 
DO 


Transfer of control to the end of the range of a nest 
of DOs is permitted only from the inxermost DO. A 
transfer from any other DO in the nest causes the 
innermost DO to begin execution. 


3. Transfer of control from inside the range of aDO toa 
statement outside its range (by means of a GO TO or 
an IF statement) is permitted at any time. However, 
the reverse is not allowed except as specified in item 
7 in the following configuration. A transfer of con- 
trol is not permitted into the range of any DO from 
outside its range. Thus, in the following configuration 
1, 2 and 3 are permitted transfers of control, but 4,5 
and 6 are not. 
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DO 
or) 
~~ 
2 
—_—__—_— 
6 
3 


After a norma! exit from a DO (when the DO becomes 
satisfied and control passes to the next statement 
after the range), the value of the DO variable is not 
defined, and the DO variable cannot be used again 
until it is defined, If exit occurs by a transfer of 
control out of the range, the current value of the DO 
variable is preserved for subsequent use. 


No statement is permitted in the range of the DO that 
changes the value of any of the variable parameters 
(i, my, Mz, or M3). 


The last statement in the range of a DO must be an 
executable statement. It cannot be a transfer of 
contro}, such as a GO TO of any type, an arithmetic 
IF, another DO, PAUSE, STOP, or RETURN. A 
relational IF statement is valid only if the associated 
statement is not a transfer of control (PAUSE and 
STOP are not considered transfers of control when 
associated with a relational IF). 


The extended range of a DO is defined as those state- 
ments that are executed between the transfer out of 
the innermost DO of a set of completely nested DOs, 
and the transfer back into the range of this innermost 
DO. Ina set of completely nested DOs, the first DO 
is not in the range of any other DO, and each succeed- 
ing DO is in the range of every DO that precedes it. 
The following restrictions apply: 

a. Transfer into the range of a DO is permitted only 
if such a transfer is from the extended range of 
the DO. 

b. The extended range of a DO statement must not 
contain another DO statement that has an extended 
range if the second DO is within the same program 
unit as the first. 

c. The variable parameters (i, m;,mM,, m3) cannot be 
changed in the extended range of the DO. 


DO 
DO 
DO 
| Extended 
Range 
8. The m;, M2, or m3; values, if constants, cannot 


exceed 2°!-2, 


Example 7: 


15 DO 25 J=1,1000 
25 = INV(J)=INV(J)-IOUT (J) 
35: 


Statement 15 is a command to execute the following state- 
ments up to and including statement 25. The first time, J 
is 1; thereafter J is incrased by 1 for each execution of the 
loop until the loop is executed with J equal to 1000. After 
the loop is executed with J equal to 1000, the statement 
following statement 25 is executed. 


Example 2: 


K=0 
L=10 
DO 5 JOB=1, L, 2 
K=K+1 
5 M(JOB)=N(JOB)-K*JOB 


This causes the following computations: 


M(1)=N(4)-1*1 
M(3)=N(3)-2*3 
M(5)=N(5)-3*5 
M(7)}=N(7)-4*7 
M(9)=N(9)-5+*9 


CONTINUE STATEMENT 
The general form of a CONTINUE statement ts: 


CONTINUE 


Uses: The CONTINUE statement is used as a dummy 
statement that can be placed anywhere in the source pro- 
gram without affecting the sequence of execution. The 
primary use of the CONTINUE staternent is as the last 
statement in the range of a DO statement, where you 
cannot use a transfer of control statement. 


Considerations/?estrictions: A CONTINUE statement, 
without a statement number, is ignored. 


Example: As an example of a program that requires a 
CONTINUE statement, consider the following: 


10 DO 12 I=1, 100 
IF (ARG.EQ.VALUE(I)) GO TO 20 
12 CONTINUE 


This program scans the 100-element VALUE array until it 
finds an entry that equais the value of the variable ARG, 
whereupon it transfers contro! to statement 20 with the 
value of i available for use. {f no entry in the array equals 
the value of ARG, a normal exit to the statement following 
the CONTINUE occurs. 
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PAUSE STATEMENT 
The general form of the PAUSE statement is: 


PAUSE 
or 
PAUSE n 


where n is an unsigned integer constant not jreater than 
99999. 


Uses: The PAUSE statement halis program execution and 
displays a halt code—#6 on the Model 10, Model 12, and 
Model 15; 4 on the Model 6. The rightmost two digits of 
the value n are displayed as a subhalt. If nis not specified, 
zeros are displayed. 


The word PAUSE and the value n are printed as follows: 
Model 6 


Printed unless // NOPRINTE 2 has been 
specified. 


Model 10 Printed on the FORTRAN er-or logging 
device. See PRINT and NOPRINTER Device 
Option Statements in Chapter 13 for more 
information. 


Model 12 Printed on the line printer assigned as the 
system log device if that printer has not 
been allocated to the program prior to the 
PAUSE n execution. If // LCG CONSOLE 
is specified, the PAUSE n is printed on the 
console only. 


Model 15 Printed on the printer that is assigned as the 
system log device if that printer is not allo- 
cated to the program prior to PAUSE n 
execution. (PAUSE n is always displayed 
on the console.) 


Note: The format of the Model 6 display is different from 
that on the Model 10, Model 12, and Model 15. Use the 
algorithm and tables in Figure 3 to convert one format to 
the other. 


When execution is halted by the PAUSE statement, the 
following responses are permitted: 


0 Continue execution of the program with the next 
FORTRAN statement 

2 Controlled cancel 

3 Immediate cancel 
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For an explanation of how to respond to a halt, see the 
appropriate Halt Guide, listed in the Preface under Related 
Publications. 


Considerations/Restrictions: 
1. The constant, n, cannot exceed 99999, 


2. If n is not specified, zeros are displayed or printed. 


Examples: 


PAUSE 
PAUSE 50 
PAUSE 00002 


STOP STATEMENT 
The general form of the STOP statement is: 


STOP 
or 
STOP n 


where n is an unsigned integer constant not greater than 
99999. 


Uses: The STOP statement terminates execution of an 
object program. If n is specified, the STOP statement also 
displays a halt code—6 on the Model 10, Model 12, and 
Model 15; 4 on the Model 6. The two rightmost digits of 
the STOP value, n, are displayed as a subhalt. If nis not 
specified, normal EOJ is reached. 


The word STOP and the value n are printed as follows: 


Model 6 Printed unless // NOPRINTER is specified. 

Models 10 Printed on the FORTRAN error logging 

and 12 device. See PRINT and NOPRINTER Device 
Option Statements in Chapter 13 for more 
information. !f // LOG CONSOLE is 
specifted, the STOP n is printed on the 
console. 


Model 15 Printed on the FORTRAN error logging 
device. See PRINT and NOPRINTER Device 
Option Statements in Chapter 13 for more 
information. 


Note: The format of the Model 6 display is different from 
that on the Model 10, Model 12, and Model 15. Use the 
algorithm and tables in Figure 3 to convert one format to 
the other. 


The only responses to a halt caused by the STOP statement 
are: 


2 Controlled cancel 
3 Immediate cancel 


For an explanation of how to respond to a halt, see the 
appropriate Halt Guide, listed in the Preface under Related 
Publications. 


Considerations/Restrictions: 


1. Execution of an object program halted by a STOP 
statement cannot be resumed. 


2. The constant, n, cannot exceed 99999. 


Examples: 
STOP 
STOP 25 
PAUSE and STOP Algorithm 


Subhalt, STOP, and PAUSE values are converted for display 
by the Model 6 according to the following algorithm: 


1. Determine the displacement in the table (see Charac- 
ter to Displacement, Figure 3) of the first character. 


2. Multiply the displacement by 22. 


3. Determine the displacement of the second character 
and add it to the result of step 2. 


4, Convert the result of step 3 from decimal to hexa- 
decimal (see Decimal to Hex, Figure 3). 


5, Write the 9-bit binary equivalent of the hex value 
obtained in step 4. The bits on indicate the display 
lights on. 


For example, to convert the U2 halt: 


U displacement = 7 
2 displacement = 4 


7x 22 = 154 
154+4= 158 
158 (dec) = 9E (hex) 


9E (hex) = 0000 10011110 
A BCD1 2345 
Medel 6halt= B 1 234 


Following are exceptions to the conversion algorithm: 


Disk System Halt Model 6 Halt 
EJ ABCD12345 
HE BCD1 2345 
5Y A CD12 5 
80 3.5 
éO 12 45 
oc AB D12 45 
7E CD1 3 
OA AB D 2345 
'Y CD123 


Any Disk System hait that ends with (-) except for (~ -) 
cannot be converted. If Mode! 6 receives a disk system halt 
it cannot convert, Model 6 issues halt ABC 1 3. 


Model 6 halts derived from disk system halts can be con- 


verted back to disk system halts by reversing the conversion 
algorithm. For example: 


Model 6 halt B1234 
Displayed B 1 234 
0060 1001 1110 = QE (hex) 


QE (hex) = 158 (decimal) (see Decimal to Hex, Figure 3). 
158/22= 7+4 


7 = displacement for U (see Character to Displacement, 
Figure 3). 
4 = displacement for 2 (see Character to Displacement, 


Figure 3). 


Disk system halt = U2 


Contrai Statements = 25 


Character to Displacement 


Character 


Displacement 





Decimal to Hex 


Low 
Order 


High 
Order 







WN 0 


NQ oD 


0128 
0144 
0160 
0176 


Bron 


Figure 3. Halt Conversion Tables 
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0001 
0017 
0033 
0049 


0065 
0081 
0097 
0113 


0129 
0145 
0161 
0177 


0002 
0018 
0034 
0050 


0066 
0082 
0098 
0114 


0130 
0146 
0162 
0178 


0003 
0019 
0035 
0051 


0067 
0083 
0099 
0115 


0131 
0147 
0163 
0179 


0020 
0036 
0052 


0068 
0084 
0100 
0116 


0132 
0148 
0164 
0180 








0005 
021 
0137 
053 


0069 
0085 
0101 
0117 


0133 
0149 
0165 
0181 


0197 
0213 
0229 
0245 


0261 
0277 
0293 
0309 


0325 
0341 
0357 
0373 


0389 
0405 
0421 
0437 


0453 
0469 
0485 
0501 





0006 
0022 
0038 
0054 


0070 
0086 
0102 
0118 


0134 
0150 
0166 
0182 


0198 
0214 
0230 
0246 


0262 
0278 
0294 
0310 


0326 
0342 
0358 
0374 


0330 
0406 
0422 
0438 


0454 
0470 
0486 
0502 


0007 
0023 
0039 
0055 


0071 
0087 
0103 
0119 


0135 
0151 
0167 
0183 


0199 
0215 
0231 
0247 


0263 
0279 
0285 
0311 


0327 
0343 
0359 
0375 


0391 
0407 
0423 
0439 


0455 
0471 
0487 
0503 


0008 
0024 


0056 


0072 
0088 
0104 
0120 


0136 
0152 
0168 
0184 


0200 
0216 
0232 
0248 


0264 
0280 
0296 
0312 


0328 
0344 
0360 
0376 


0392 
0408 
0424 


0456 
0472 
0488 
0504 


0009 
0025 
0041 
0057 


0073 
0089 
0105 
0121 


0137 
0153 
0169 
0185 


0201 
0217 
0233 
0249 


0265 
0281 
0297 
0313 


0329 
0345 
0361 
0377 


0393 
0409 
0425 
0441 


0457 
0473 
0489 
0505 


0010 
0026 
0042 
0058 


0074 
0090 
0106 
0122 


0138 
0154 
0170 
0186 


0202 
0218 
0234 
0250 


0266 
0282 
0298 
0314 


0330 
0346 
0362 
0378 


0394 
0410 
0426 
0442 


0458 
0474 
0490 
0506 


0011 
0027 
0043 
0059 


0075 
0091 
0107 
0123 


0139 
0155 
0171 
0187 


0203 
0219 
0235 
0251 


0267 
0283 
0299 
0315 


0331 
0347 
0363 
0379 


0395 
0411 
0427 
0443 


0459 
0475 
0491 
0507 


0012 
0028 
0044 
0060 


0076 
0092 
0108 
0124 


0140 
0156 
0172 
0188 


0204 
0220 
0236 
0252 


0268 
0284 
0300 
0316 


0332 
0348 
0364 
0380 


0396 
0412 
0428 
0444 


0460 
0476 
0492 
0508 


0013 
0029 
0045 
0061 


0077 
0093 
0109 
0125 


0141 
0157 
0173 
0189 


0205 
0221 
0237 
0253 


0269 
0285 
0301 
0317 


0333 
0349 
0365 
0381 


0397 
0413 
0429 
0445 


0461 
0477 
0493 
0509 


0014 
0030 
0046 
0062 


0078 


0110 
0126 


0142 
0158 
0174 
0190 


0206 
0222 
0238 
0254 


0270 
0286 
0302 
0318 


0334 
0350 
0366 
0382 


0398 
0414 
0430 
0446 


0462 
0478 
0494 
0510 


0015 
0031 
0047 
0063 


0079 
0095 
0111 
0127 


0143 
0159 
0175 
0191 


0207 
0223 
0239 
0255 


0271 
0287 
0303 
0319 


0335 
0351 
0367 
0383 


0399 
0415 
0431 
0447 


0463 
0479 
0495 
0511 


END STATEMENT 
The general form of the END statement is: 


END 


Uses: The END statement is a nonexecutable statement that 
defines the end of a main program or subprogram. Physi- 
cally, it must be the last statement of each program unit. 

If any FORTRAN statements follow an END statement, 
they are ignored by the compiler and not printed. The 

END statement does not terminate prograrn execution. 


Considerations/Restrictions: 


1. The END statement cannot have a statement number. 
2. The END statement cannot have a zero in column 6. 
3. The END statement cannot have a continuation. 
Examples: 


PROGRAM FIRST SUBROUTINE SECOND 


CALL SECOND RETURN 
: END 

STOP 25 

END 
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In order for data to be transmitted from an external storage 
medium such as a punched card, tape, or disk to the com- 
puter, or from the computer to an external medium, it is 
necessary that the computer know the form in which the 
data exists. The FORMAT statement describes the form 

of the data. 


The FORMAT statement uses format codes to specify the 
type of conversion to be performed between the external 
and the internal representation of each quantity specified 
in a READ or WRITE statement 1/O list. 


FORMAT statements are associated by their statement 
numbers with specific READ or WRITE statements. Suc- 
cessive items in the !/O list are transmitted according to 
successive specifications in the FORMAT statement. FOR- 
MAT statements are not executed and car appear anywhere 
in the same program unit as their associated 1/O statements, 
subject to the rules governing placement of PROGRAM, 
IMPLICIT, FUNCTION, SUBROUTINE, and END state- 
ments. 


FORMAT STATEMENT 
The general form of a FORMAT statement is: 


xxxxx FORMAT (cys, 0352... Cy) 


where 
XXXXX iS a Statement number (1 through 5 digits). 
Cc is a format code (described following). 
s is a separator, which may be either a comma or 


any number of slashes. Slashes are used to indi- 
cate the beginning of a new record. Any number 
of slashes may precede the first or follow the 
last format code. 


Format 
Code 


alw 
aDw.d 
aEw.d 
aFw.d 
nPc 


aAw 
wHstring 
‘literal’ 
wX 


Tr 


where 


string 


Chapter 5. Format of Input/Output 


Purpose 


Describes integer data fields. 

Describes double precision data fields. 
Describes real data fields. 

Describes real data fieids. 

Describes a scale factor; if present, this code 
is specified as the first part of aD, E, or F 
field descriptor. 

Describes character data fields. 

Describes literal data. 

Describes literal data. 

Indicates that a field is to be skipped on input 
or filled with blanks on output. 

Indicates the position ina FORTRAN record 
where transfer of data is to begin. 


is optional and is a repeat count, an unsigned 
integer constant that specifies the number of 
times the code is to be repeated. If a is 
omitted, the code is used once. 


is an unsigned nonzero integer constant that 
specifies the number of characters in the field 
(field width). 


is an unsigned integer constant specifying 
the number of decimal places to the right 

of the decimal point (the fractional portion). 
The decimal point between w and d portions 
of the specification is required, 


is a negative or unsigned integer constant 
which is the scale factor; if the constant is 
unsigned, it is assumed to be positive. 

is format code D, E, or F. 


is a set of characters in a field. 


is an unsigned integer constant designating 
a character position in a record. 
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Uses: The FORMAT statement is used in conjunction with 
the I/O lists in the READ and WRITE staternents to specify 
the structure of FORTRAN records and the form of the 
data fields within the records. FORMAT statements are 
associated by their statement numbers with specific READ 
or WRITE statements. 


Considerations/Restrictions: 


1. A FCRMAT statement is not executed—its function 
is to supply information to the object program. The 
FORMAT statement can be placed anywhere in the 
source program. 


2. When defining a FORTRAN record with a FORMAT 
statement, it is necessary to consider the maximum 
size record allowed on the input/output device. 


3. The specifications ina FORMAT statement must 
correspond in mode to the items in the I/O list—inte- 
ger quantities require integer format codes and real 
quantities require real format codes. 


4. The field width, w, of a format code cannot exceed 
255. 


5. The repeat count, a, whether of the form aDw.d or 
a(Dw.d), cannot exceed 255. 


6. The field width, w, can be specified greater than re- 
quired in order to provide spacing. For example, to 
write out an integer variable with the | format code, 
a specification of 110 reserves five leading blanks if 
the number does not exceed five digits, including the 
sign. 


Examples: 
05 FORMAT (15,F8.4/20X,15) 


10 FORMAT (’ THE ANSWER IS’,110) 
33 FORMAT (E6.2,2(13,2F2.1)) 
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VARIOUS FORMS OF A FORMAT STATEMENT 


All of the format codes ina FORMAT statement are en- 
closed in a pair of parentheses. Within these parentheses, 
the format codes are delimited by a separator—a comma or 
aslash. The comma delimits one format code from another; 
the slash is used to indicate the beginning of a new record. 


For example, the statement 
25 FORMAT (13,F6.2/D10.3,F6.2) 


describes the format of two records. The first record is 
transmitted according to the format codes 13 and F6.2; the 
second record is transmitted according to the format codes 
D10.3 and F6.2. 


Consecutive slashes can be used to produce blank output 
records or to skip input records. If there are n consecutive 
slashes at the beginning or end of a FORMAT statement, n 
input records are skipped or n blank records are inserted 
between output records. If n consecutive slashes appear 
anywhere else ina FORMAT statement, the number of 
records skipped or blank records inserted is n-1. 


For example, the statement 
25 FORMAT (//15//15//) 


describes seven record formats. If this FORMAT statement 
is used to transmit records to the printer, it produces two 
blank lines, one line of data, one blank line, another line of 
data, and two blank lines. 


The group format specification is used to repeat a set of 
format codes and to control the order in which the format 
codes are used. The group repeat count, a, is the same as 
the repeat count, a, that can be placed in front of other 
format codes. For example, the following statements are 
equivalent: 


25 FORMAT (2(E10.5,D12.6) ,14) 
25 FORMAT (E10.5,D12.6,E10.5,D12.6,14) 


An additional level of parentheses is not permitted. For 
example, the following statement is invalid: 


25 FORMAT (2(3(16,18))) 


Additional parentheses are valid, however, as long as they 
are not in the same group. For example: 


25 FORMAT (2(12),2(14)) 


Each time a READ or WRITE statement is executed, 
successive items in the I/O list are transmitted according to 
successive format codes in the FORMAT statement. This 
continues until all the items in the list are transmitted. If 
there are more items in the list than there are format codes, 
control transfers to the last preceding left parenthesis of 
the FORMAT statement. This is either the left parenthesis 
at the beginning of the FORMAT statement or, if grouping 
is used, the left parenthesis of the last group in the FOR- 
MAT statement. For example, if the I/O list contains the 
variables A, B,C, D, and E and the FORMAT statement 
used is 


25 FORMAT (F6.2,D10.3,F 12.2) 


the values transmitted for A, B, and C would use format 
codes F6.2, D10.3, and F12.2, respective y. Because the 
list is not exhausted, contro! returns to tre preceding left 
parenthesis and the values transmitted for D and E would 
use format codes F6.2 and D10.3, respectively. If the 
FORMAT statement were coded 


25 FORMAT (F6.2,D10.3,2(F12.2)) 
the values transmitted for A, B, C, D, and E would use for- 
mat codes F6.2, 010.3, F12.2, F12.2, and F12.2, 
respectively. 
If there are fewer items in the t/O list than there are format 
codes, the remaining format codes are ignored. 


FORMAT CODES FOR NUMERIC DATA 


Four types of format codes for numeric data are: 


Internal Format External 
Code 

Real F Real (without exponent) 

Real E Real (with exponent; single 
precision) 

Real D Real (with exponent; double 
precision) 

Integer | Integer 


Numbers printed by the F format code are printed ina 
decimal notation without an exponent. Typical output 
might be: 


° 12.3 -0.726 102. 
-17.2 1.318 -968. 
289.1 0.009 721. 


Numbers printed by the D and E format codes are printed 
as a decimal fraction to a power of 10. These numbers are 
normalized; that is, their first significant digit is to the right 
of the decimal point. For example: 


232.3 is printed as 0.2323E+03 
.003 is printed as 0.30E-02 
17.4 is printed as 0.174E+02 


Numbers printed by the | format code are printed as integers. 
Typical output might be: 


12 
-17 
2342 


| Format Code (alw) 


The | format code is used to read integer data or to print a 
number that exists in the computer as an integer quantity. 


On output, w print positions are reserved for the number. 
It is printed in a w-space field right-justified (that is, the 
units position is at the extreme right). If the number con- 
verted is greater than w spaces, asterisks are printed instead 
of the number. If the number has less than w digits, the 
leftmost spaces are filled with blanks. !f the quantity is 
negative, the space preceding the leftmost digit contains a 
minus sign, for which a space must be reserved. 


The following examples show how each of the quantities 
on the left is printed according to the specification !3 (b 
is used to indicate blanks): 


Internal 
Value Printed 
721 721 
-721 xX 
-12 -12 
9 bb9 
8114 ¥ Hx 
0 b60 
-5 B-5 


On input, w characters are read from an input device. Blanks 
on either side of a significant digit are treated as zeros. If 
the number is too large to be contained in a 2- or 4-byte 
integer variable, only the rightmost digits are used, and 
computations involving this variable are meaningless. 
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The following examples show the internal values of the 
given quantities if read under the 13 format code: 


Internal 
Input Value 
366 300 
poe 0 
636 30 


F Format Code (aFw.d) 


On input, w is the total field width, includig the exponent 
if any, and d is the number of places to the right of the 
decimal point (the fractional portion). If a decimal point 
is present, its position overrides the d specification in the 
format code. Either a D, E, or signed integer exponent is 
acceptable as input with an F format code. Blanks are 
treated as zeros; thus, embedded and trailing blanks affect 
the value of the number. 


’ 


For example, the following item is interpre-ed as having 
the value 1000: 


Field Input 
Description Record 
F8.0 bbbb1bbE 


On output, w must provide sufficient space for an integer 
segment if it is other than zero, a fractional segment con- 
taining d digits, a decimal point, and, if the output value 

is negative, a sign. Thus, the value of w should be at least 
1 greater than the value of d, and at least 2 greater if the 
number can be negative. If insufficient positions are pro- 
vided for the integer portion, including decimal point and 
sign (if any), asterisks are written instead of the number. 
If excess positions are provided, the number is preceded by 
blanks. Fractional digits in excess of the number specified 
by d are dropped after rounding. 
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The following example shows how each of the quantities 
on the left is printed according to the specification F5.2: 


Internal Value Printed 
12.125 12.13 
-41 5 HERR 
-0.25 -0.25 
7.375 67.38 
-1. -1.00 
9.03125 49.03 
187.625 HH *® 
0.00390625 460.00 
0.0078125 40.01 


The last two examples demonstrate the effect of rounding. 


D and E Format Codes (aDw.d, aEw.d) 


D and E format codes are used in transmitting real (single 
precision or double precision) data. On input, the number 
optionally has a decimal point and/or a D, E, or signed 
integer constant exponent. All exponents must be preceded 
by a constant—that is, an optional sign followed by at least 
one decimal digit, with or without a decimal point. If the 
decimal point is present, its position overrides the position 
indicated by the d portion of the format specification, and 
the number of positions specified by w must include a 
place for it. Because leading, trailing, and embedded blanks 
are treated as zeros, embedded and trailing blanks affect 
the value of the item. 


The D, E, and signed integer constant exponent specifica- 
tions for input data are interchangeable. For example, 
given a REAL *4 item in an input list, and E format specifi- 
cation, the exponent specification in the data item can be 
a D, an E, or a signed integer constant, or have no expon- 
ent. The data item is treated as a REAL *4 constant in any 
case. Similarly, if the list item ts REAL*8 and the FOR- 
MAT specifitation is D, the data item is treated as a double 
precision constant regardless of its exponent specification, 
if any. Note that the type and length of the list item must 
agree with that of the specification. 


For output, unless a scale factor is present (the scale factor 
changes the location of the decimal point in real numbers; 
its use is explained later in this section under the heading 
Scale Factor (nPc), output consists of an optional sign 
(required if the value is negative), a decimal point, the 


number of significant digits specified by cl, and a D or E 
exponent requiring four positions: the D or E,a t or — 
sign, and a two-digit exponent. The w specification must 
provide spaces for all of these positions. Thus the value of 
w should always be at least d+ 5, or d+ Gif the number 
can be negative. Hf additional space is available, a leading 
zero is written before the decimal point. Hf the value of w 
is not sufficient to print a decimal point end a four-position 
exponent, plus a minus sign if the value is negative, asterisks 
are printed tnstead of the number. Fractional digits in ex- 
cess of the number specified by d are dropped after 
rounding. 


Examples. 


Given the following input record: 


6.73124 E 36b6K6.23791 D-0664167'123.141591.413962D-0161.413962D+1 


the following statements could be used to read this data: 


READ (1,10)A,B,!,C,D,E 
10 FORMAT (€10.5,016.10,17,E7.5,2D 12.7) 


Then the data could be printed using essentially the same 
format codes: 


20 FORMAT ('1,E10.5/7 ',D16.10/° “17/' * 
E7.5,2(/' ',D12.7)) 


, 


The ‘1’ and’ ’ specifications are carriage and record control 
specifications that are explained under the heading Printed 
Output. The following shows the printed results: 


.67312E+04 
0.2379100000D-06 
16712 
-1413962D+00 
.1413962D+02 


In the first data item, the decimal point was moved to the 
left and exponent adjusted. For the second data item, a 
leading zero was added for the integer portion, trailing 
zeros were added to the decimal portion, and the number 
is printed with ten digits after the decimal point. For the 
third item, two feading blanks were added to the integer 
field and the number is printed right-justified. Asterisks 
were printed instead of the fourth data item because the 
w specification, although sufficient for ir put (there was no 
exponent) is insufficient for output (where there is always 
an exponent with the D and E format codes). For the fast 
two data items, identical except for their exponents, the 
decimal points were moved to the left and the exponents 
adjusted accordingly. 
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Scale Factor (nPc) 


The P scale factor can be specified as the first part of a D, 
E, or F format code to change the location of the decimal 
point in real numbers. 


Unless there is an exponent in the external input or output 
field, the effect of the scale factor for the F format code is: 


external number = internal number x 10" 
where n is the scale factor. 


On input, the scale factor in the format specification is 
ignored for any data item with an exponent in the external 
field. Otherwise, a positive scale factor decreases the magni- 
tude of the data item and a negative scale factor increases 
its magnitude. For example, if the input data is in the form 
XX.XxXxx and is to be used internally in the farm .XXXXXX, 
then the format code used to effect this change is 2PF7.4. 
Or, if the same input is to be used in the form xxxx.xx, 
then the format code used to effect this change is -2PF7.4. 
If the external representation was xx.xxxxExx and the for- 
mat code 2PE10.4, the scale factor would be ignored, and 
the value stored internally as xx.xxxxExx. 


On output, the scale factor can be specified for F, E, or D 
format codes. For F format codes, the effect of the scale 
factor is the opposite of that for input; a positive scale 
factor increases the magnitude of the number and a negative 
scale factor decreases the magnitude. For example, if the 
number has the internal form xx.xxxx and it is to be written 
out in the form xxxx.xx, the format code used to effect 

this change is 2PF7.2. 


For D or E format codes, the exponent is adjusted so that 
the magnitude of the number does not change. For ex- 
ample, if the internal number were printed according to the 
format E10.3, it would appear as 0.238E+03. If it were 
printed according to the format 1PE10.3, it would appear 
as 2.385E+02. Note that this results in greaer precision. 


Once a scale factor is established, it applies to all subse- 
quently interpreted D, E, and F format codes in the FOR- 
MAT statement until another scale factor is 2stablished. A 
factor of 0 may be used to discontinue the effect of a pre- 
vious scale factor. tf no scale factor is given, 0 is used for 
all F, E, and D format codes. 


Example: 


30 FORMAT (E10.3,2PD20.10,E7.2,15) 


34 


The scale factor 2 applies to both the D20.10 and the 
E7.2 specifications. If 5 data items were read using this 
code, it would also apply to the E10.3 code, which would 
be used to interpret the fifth item. To discontinue the 
effect of the code after the D20.10 specification, the state- 
ment should be coded: 


30 FORMAT (E10.3,2PD20.10,0PE7.2,15) 


To discontinue it after the E7.2 code, if more than four 
data items are to be read using the FORMAT statement, 
the statement should read: 


30 FORMAT (OPE10.3,2PD20.10,E7.2,15) 


Note that the OPE10.3 specification is not necessary to dis- 
continue the effect of a scale factor in a previous FORMAT 
statement, or in the previous use of this FORMAT statement. 


FORMAT CODES FOR ALPHAMERIC DATA 


There are three specifications available for input/output of 
alphameric information. The specification wH or a literal 
enclosed in apostrophes is used for alphameric data that is 
not going to be processed by the object program; the 
specification Aw is used for alphameric data that is to be 
processed by the program. 


Information handied with the A specification is given a 
variable or array name and hence can be referred to by this 
name for processing and/or modification. information 
handled with the H format code is not given a name and 
cannot be referred to or manipulated in any way. 


A Format Code (aAw) 


The specification Aw causes w characters to be read into, 
or written from, a variable or array element. The type of 
the variable or array is immaterial, because no conversion 
takes place. Thus, the A format code can be used for 
numeric fields, but not for numeric fields requiring arith- 
metic. 


The maximum width of w can be 255. 


The maximum number of characters stored in internal 
storage depends on the length of the variable in the I/O list. 
If w is greater than the variable length, sey v, then the left- 
most w~v characters in the field of the input card are skip- 
ped and the remaining v characters are read and stored in the 
variable; truncation occurs on the left. I* w is less than v, 
then w characters from the field in the trput card are read 
and the remaining rightmost characters in the variable are 
filled with blanks. 


If w is greater than the length (v) of the variable in the 1/O 
list, then the output field contains v characters right-justified 
in the field, preceded by leading blanks. If w is less than 

v, the leftmost w characters from the variable are printed 
and the rest of the data is truncated; truncation occurs on 
the right. 


Example 1: 


Assume that B was specified as REAL*8 that N and M are 
INTEGER +4, and that the following statements are given: 


25 FORMAT (3A7) 
READ (1,25)B,N,M 


When the READ statement is executed, one input card is 
read from the file associated with logical unit number 1 into 
the variables B, N, and M in the format specified by FOR- 
MAT statement number 25. The following list shows the 
values stored for the given input cards. 


Input Card B N M 


ABCDEF G466AT#11234567 ABCDIEFGK ATH1 4567 
HIJKLMN76543213334445 HIJKLMNK 4321 4445 


Example 2: 


Assume that A and B are real variables of length 4, that C 


is a real variable of length 8, and that the following state- 
ments are given: 


26 FORMAT (A6,A5,A6) 
WRITE (3,26)A,B,C 


When the WRITE statement is executed, one line is written 
on the file associated with logical unit number 3 from the 
variables A, B, and C in the format specitied by FORMAT 
statement 26. The printed output for values of A, B, and 
C is as follows: 


A B Cc Printed Line 


AIB2 C3D4 E5F6G7H8 bbAIB2bC3D4E5F6G7 


H Format Code (wHstring) and Literals Enclosed in 
Apostrophes 


The specification wH is followed in the FORMAT statement 
by a string of w alphameric characters. For example, 


24HBTHISBISBALPHAME RICBDATA 


This specification can also be coded using apostrophes to 
enclose the string of characters: 


‘STHISBISBALPHAME RICBDATA’ 


The apostrophe specification method may be more conven- 
ient for specifying long character strings. 


Note that blanks are considered alphameric characters and 
must be included as part of the count, w. 


The effect of wH or literal specification depends on whether 
it is used with input or output. 


On input, w characters, or as many characters as are en- 
closed in apostrophes, are extracted from the input record 
and replace the characters included with the specification. 


On output, the string of characters following the specifica- 
tion or the literal string are written as part of the output 
record unless characters have replaced them as a result of 


an input operation, in which case, the replacement charac- 
ters are written. 


For example, suppose that the following statements are 
executed: 


WRITE (3,2) 
2 FORMAT (20HTIME/QUANTITY#REPORT} 


These would cause the following output to be printed: 
TIME/QUANTITY REPORT 


On the other hand, assume that a card containing the 
characters BNO%B238 is read using these statements: 


READ (1,1)I 
1 FORMAT (‘YES‘,15) 


The statement 
WRITE (3,1)! 
would cause the following printed output: 


bNOBB238 
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SPECIFYING BLANK FIELDS IN A RECORD (X 
FORMAT CODE) 


Blank characters can be provided in an output record, or 
characters of an input record can be skippec|, by means of 
the specification wX where w is the number of blanks 
provided or characters skipped. When the specification is 
used with an input record, w characters are skipped. 


For example, if a card has six 10-column fields for integers, 


and you do not want to read the second quantity, then the 
statement 


FORMAT (110,10X,4110) 
can be used with the appropriate READ stazement. The T 
format code can also be used for this purpose. 
FORMATTING THE RECORD (T FORMAT CODE) 
The FORMAT statement positions data from left to right, 
according to the specifications given within the FORMAT 
statement. Very often, though, it is useful 20 start printing 
other than in print position 1, or to print data at specific 
print locations. The T format code can be used for this 
purpose. 
The T format code is specified as 

Tr 
where r is an unsigned integer constant specifying the posi- 
tion in the record where data transfer is to begin. Ona 
printed line, r indicates the print position plus 1 because 


the first character is used for carriage control. 


A blank is inserted into any character posit on that was not 
previously filled. 


Example 1: 
1 FORMAT (T61,,;CALCULATION’) 


This statement prints the word ca/culation in positions 60 
through 70. 


Example 2: 
2 FORMAT (T21,D20.7) 


This statement prints the data item whose specification is 
D20.7 starting at position 20. 
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When using the T specification for printed output, the 
carriage control character must still be provided. If the 
specification T1 is used, the first character of the output 
image is used for carriage control. If something other than 
T1 is specified as the first print position, (for example T40), 
then a blank is used as the carriage control character. 


Example 3: 


3 FORMAT (T40,‘PLUS’,T1,/1MINUS’) 


This statement prints the word minus starting in position 1, 
with the 1 in the ‘IMINUS’ specification being used for 
carriage control. The word plus is printed starting in posi- 
tion 39. 


Note that more than one T specification can be used ina 
FORMAT statement, and that the order in which the print 
positions are specified need not be sequential. 


When output is to tape or disk, the first character of the 
record is treated as data. In this case, the T specification 
represents the exact position at which transfer is to begin, 
rather than the position plus 1. Thus, if FORMAT state- 
ment 3 were used to write a tape or disk record , MINUS 
would be written starting in position 1, and PLUS would 
be written starting in position 40. 


Example 4: 
4 FORMAT (T41,F7.2,T1,’ X=",T61,/RESULT’) 


This statement prints the following line: 


X= 1234.56 [ 
Lee bi rint 
Position 1 Position 40 — Position 60 


The T format code can be used in conjunction with any 
other format code. The positions of all codes following a 
T format code are in effect governed by the T format code 
until another T format code is encountered. 


Example 5: 


5 FORMAT (7101,F10.3,110,, NOTE 1’,1751,E9.3, 
Ti, ANS - ‘) 


This statement prints the following line 


ANS 0.354E +02 111082.986 536453 NOTE 1 
4 4 4 4 4 

Print Print Print Print Print 
Position Position Position Posttion — Position 
1 50 100 AD 120 


When formatting a line using the T format code, care must 
be taken not to overlap print positions. 


Example 6: 

6 FORMAT (141,D20.15,T51,F6.3) 
If the preceding statement were used, the F6.3 specification 
would be written over six of the decimal! places of the D20.15 
specification. 
The T format code ean also be used for nput. 


Example 7: 


READ (1,7) INPUT 
7 FORMAT (715,15) 


These statements cause the first 14 colurnns of the input 
record to be ignored, and the next five to be transmitted 
to the variable INPUT. 


LISTS FOR TRANSMISSION OF DATA 


The list in an input/output statement specifies what 
quantities to transmit. For example, assume that a card 
is punched as follows: 











ae eee ok 
8 e B 
a e e a 
8 8 
a ° 4 
2 e e 2 
4 z o 
ne if sane Bane vanncrha is wy! 
B B 
a ® a 
8 8 
4 ° 4 
2 2 
Voss sea sear Bara ae a as ae ge ar ane By se sence se an ne os nae? 
8 8 
a A 
8 8 
4 a 
2 2 
‘ 1 
TOR 5382 6 82 AS RG HS Bb AY BE BY EC 91 97 93 94 Of 96 








Further assume that the following statement appears in the 
source program: 


READ(1,100) 1,J,K,L,M 
100 FORMAT(51I10) 
The card is read and the program processes the data as 
though the following statements were written: 


1 25 
J -102 
K -101 
L 10 
M-5 


If control passes back to he READ statement, b J Kb, 
and M have new values depending upon what 1s punched 
In the next card read. 


Indexing in Input/Output Lists 


DO-type notation can be used in lists for the transmission 
ot data. For example, suppose you want to transmit the 

five quantities A(1), A(2), A(3}), A(4) and A(S). This ean 
be accomplished by writing: 


10 FORMAT(5F 10.0) 
12) READ(1,10){A(1),1-1,5) 


The above statements cause a record to be read and cause 
the value contained in the first ten positions of the record 
to be converted to a real number and stored into A(4 } the 
next ten positions into A(2), etc. 


This is equivalent to writing 

12. READ(1,10)A(1),A(2),A(3),A(4), ALS) 
In other words, | is given the value 7 and the first quantity 
becomes the value of A(1). | is then increased by 1, and 
the second quantity becomes the value of A(2). This con- 


tinues until the fifth quantity read becomes the value of 
A(5). 


As with DO statements, a third indexing parameter can be 
used to specify the amount by which the index is incre: 
mented at each iteration. Thus, 


READ(1,50) (A(1),1=1,10,2) 


causes transmission of values for A(1), A(3), AIS}, A(7)} 
and A(Q). 
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Implied DO Notation in Input/Output Lists 
The general form of the Implied DO notation is: 
(y; (i), Y2 (i), seo Vn (i), i=m, iM m3) 
where 
y is an array name. 
i is composed of one through three integer variables, 
sepatatuu by commas, representing a value of a subscript 
in the array, based on the value of m,. 
m,,™, and mg are each either an unsigned integer 
constant or an integer variable. If m3 is not stated, it is 
assumed to be 1. 
The maximum nesting level in implied DOs is 15. 
Note: As with DQs, i is the index, m, is the initial value, 
mM, is the test value, and m3 is the increment. In addition, 
this notation can be nested. 
Example: 
((C(1,J),D (1,J),1=1,5),J=1,4) 


transmits data in the form 


C(1,1),D(1,1),C(2,1),D(2,1), .. . ,C(5,1),0(5,1), 
C(1,2),D(1,2),. .. .C(5,4),D(5,4) 
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Additional Details of Input/Output Lists 


Any number of quantities can appear in a single list. Integer 
and floating point quantities can be transmitted by the 
same statement. However, if formatted I/O is used, each 
quantity must have the correct format as specified in a 
corresponding FORMAT statement. 


For formatted t/O, if there are more quantities to transmit 
than there are in the list, only the number of quantities 
specified in the list are transmitted, and remaining quanti- 
ties are ignored. Thus, if a card contains three quantities 
and a list contains two, the third quantity is not used by 
the program. 


A list for an unformatted READ must not contain more 
quantities than the input record. 


When an array name appears in a list in nonsubscripted 
form, all of the quantities of the array receive data or are 
transmitted. For example, if A is an array with 25 elements, 
the statement 


READ(1,100)A 
causes all of the quantities A(1), ... A(25) to receive data. 
A more complex list is 


A,B(3) (C(1),D(1,K),1=1,10),((E(1J),1=1,10,2), 
F(J,3),J=1,K) 


This list receives or transmits data in the order 


A,B(3),C(1),D(1,K),C(2),D(2,K), . . . ,C(10),D(10,K), 
E(1,1),E(3,1),... ,E(9,1),F(1,3),E(1,2),E(3,2),..., 
E(9,2),F(2,3),... E(9,K),F(K,3) 


Note that each item in the list is separated by a cornma, 
that the range of the implied DO statement is clearly de- 
fined by means of parentheses, and that constants do not 
appear in the list except as indexing parameters or sub- 
scripts. The variable indexing parameter (K) is assumed to 
be previously defined by the program, although in an input 
list it could have been defined by an item in the list itself, 
providing that it appeared before its use as an index, 


PRINTED OUTPUT 


When formatted records are prepared for a printer, the 
first character of the record is not printed, it is treated as 
a carriage control character. It can be specified in the 
FORMAT statement with either of the two forms of literal 
data: either ‘x’ or nHx, where x is one of the following: 


x Meaning 

blank Advance one line before priating 

0 Advance two lines before printing 
1 Advance to first tine of next page 
+ No advance 


Due to hardware restrictions, the 3284 srinter does not 
support the + carriage control for no advance. A print 
request to the 3284 with a + for carriag2 control will be 
equivalent to the blank carriage control character. 


The carriage control character can stanc by itself as a for 
mat code, or it can be included as part of a larger Siteral 
specification. Consider the following statements: 


20 FORMAT (‘1 THE FOLLOWING IS A LIST OF 
PRIMES’) 
or 
20 FORMAT (‘1',33HTHE FOLLOWING IS A LIST 
OF PRIMES) 
or 
20 FORMAT (34H1THE FOLLOWING IS A LIST 
OF PRIMES) 


Each of these statements would print the heading at the top 
of the next page. 


For media other than the printer (for example, tape, disk, 
or card punch), the first character of the record is treated 
as data, and a carriage control character should not be 
specified. Thus, the same FORMAT statement should not 
be used for both printing and punching. An example 
specifying the use of FORMAT statements for both print- 
ing and punching may be found in Diracting Program Out- 
put to Both a Printer and a Card Punch in the section 
Programming Considerations in Part 2 of this publication. 


DATA INPUT TO THE OBJECT PROGRAM 

Numeric input data to be read by a READ statement when 
the object program is executed must be in essentially the 
same format as given in the previous examples, Thus, a 
card to be read according to 


FORMAT (12,612.4,F 10.4) 


might be punched: 
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8 ee e 8 & 
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8 ee 2 8 
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2e006e e e8@ . e ee 2 
1 8 eee eae 2 e 1 
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a aA 
8 a | 
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Within each field, all information is considered right-justified; 
embedded blanks and trailing blanks in numeric fields are 
read as zeros and affect the item’s value. Plus signs can be 
omitted or indicated by a +. Minus signs must be punched 

if the number is negative or has a negative exponent. Input 
for E and D format codes can contain any number of digits, 
but only the high order digits of accuracy are retained tt 

the number exceeds the capacity of the system. 


To permit economy in punching, certain relaxations in 
input data format are permitted. 


1. Numbers for D- and E-type format codes necd not 
have 4 columns devoted to the exponent field. The 
start af the exponent field must be merked by an E, 
or if that is omitted, by a + or - (not a blank}, Thus, 
£2, E+2, +2, +02, E02, and E+02 are all permissible 
exponein fields. 


2. Numbers for D, &, and F tormnat codes need noi have 
their decimal point punched. Hf itis not punched, 
the format specification supplies it. For example, the 
number -09321+2 with the code E12.4 'y treated es 
though the decimal point were punched between the 
Oand the 9. tf the decimal point is punched tn the 
card, its position overrides the posiiien indicates ir 
the FORMAT statement. 


Format cf Input/Output 29 


LIST-DIRECTED INPUT DATA 


A record containing list-directed input data consists of an 
alternation of constants and separators. The record can be 
read from tape or sequential disk, in addition to unit-record 
devices. 


An input constant can be any valid FORTRAN numeric 
data type. Blanks cannot be embedded in any list-directed 
constant since they would be interpreted as separators. 
Numeric censtants can optionally be signed, but there must 
be no embedded blanks between the sign and the constant. 


Each constant must aaree in type with the corresponding 
list element. The decimal point can be omitted froma 

real constant. If omitted, it is assumed to follow the right- 
most digit of the constant. 


With the exceptions noted below, a separator is either a 
comma or a blank. tn addition, for console nput, an end 
indicator is a separator. For punched card input, an end- 
of-card condition is also a separator. Blanks can optionally 
occur between the comma and the carrier return or end-of- 
card. 


A separator can be surrounded by any number of blanks, 
horizontal tabs, carrier returns, or end-of-card conditions. 
Any such combination (with no intervening constants) 
constitutes a single separator. At the inception of execu- 
tion of a list-directed READ, a preceding separator is 
assumed; and initial blanks, horizontal tabs, carrier returns, 
or end-of-card conditions, if present, are cor:sidered part 
of that separator. 


A null item is represented by two consecutive commas with 
no intervening constant. Any number of blanks, horizontal 
tabs, carrier returns, or end-of-card conditions can be em- 
bedded between the commas. If a null item is specified, 
the corresponding list item is skipped; its current value 
remains unaltered. 


A repeat factor can be specified for a constent or null 
item. For a constant, the form is 


i*constant 
and for a null item, the form is 

i* 
In each instance, i is a nonzero unsigned integer constant, 
which indicates that the following constant or null item is 
to occur i times. Neither of these forms can contain embed- 


ded blanks. The separators surrounding a repeated null 
item need not be commas. 
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A slash (/} serves as a special-purpose separator, indicating 
that no more data is to be read during the current execu- 
tion of a READ statement. If the list has not been satisfied, 
the values of the remaining list elements remain unaltered. 
If the list has been satisfied, the slash is optional. 


Example: A list-directed READ statement is used to 
read a record containing constants of various types in- 
to main storage. For this example, the character / is 
used to represent a carrier return. A carrier return is 
the terminal equivalent of an end-of-card condition. 


READ (1,*) (ARRAY (1),l=1,50),A,B,C,D,E,F,G,H, 
J,P,Q,R,S 


50*0 
2.17E+15,3.14E0 , 1.,2.0,0.125D-3 2*, 87,,/ 


When this statement is executed, the value 0. is read into 
each of the first 50 elements of ARRAY; real values are 
read into the variables A, B, C, D, and E; variables F and 
G are skipped because of the repeated null specification; 
the value 87. is read into the real variable H; variable J is 
skipped because of the null specification, and variables P, 
Q, R, and S receive no data because of the slash. 


LIST-DIRECTED OUTPUT DATA 


List-directed output data can be directed tc tape or 
sequential disk in addition to any unit-record output device 
such as a printer or card punch. List-directed output data 
can contain any producible form of data that is readable 

as list-directed input. However, certain forms which are 
permissible as list-directed input are not produced as list- 
directed output. These forms are: 


null items 
ix repeat factor 
/ special-purpose separator 


In list-directed output, the width of the data field depends 
upon the type of variable to be written: 


Type of Variable Width of 
Data Field 
REAL*«8 24 
REAL*4 14 
INTEGER *4 11 
INTEGER *2 6 


A blank is inserted as a separator between data fields. The 
total width of the data fields plus separators must be con- 
sidered when output is going to sequential devices. 


Input/output statements transfer data and control the flow 
of data between main storage and an input/output device 
such as a card reader, printer, punch, magnetic tape unit, 
or disk storage unit. 


Input/output statements in FORTRAN are primarily con- 
cerned with the transfer of data between main storage 
locations defined in a FORTRAN program and records that 
are external to the program. On input, data is taken froma 
record and placed into main storage locations that are not 
necessarily contiguous. On output, data ts gathered from 
diverse main storage locations and placed into a record. An 
1/O list is used to specify which main storage locations are 
used, 


System/3 FORTRAN IV provides two types of input/output 
statements—sequential and direct-access. Sequential |/O 
statements read or write records consecutively. Direct- 
access 1/O statements generally read or write records 
randomly. 


Most input/output devices are sequential; that is, if there 
are 100 records to be read, they would have to be read in 
the order 1, 2, 3,...,99, 100. Record 57 cannot be read 
before record 56. Examples of sequential devices are card 
readers, printers, and magnetic tape. 


The 5444, 5445, and 3340 disk storage devices are the only 
System/3 devices that can read or write records randomly; 
that is, in an order determined by the programmer. When 
records are to be read or written randomly, direct-access 
statements must be used. Note, however, that sequential 
1/O statements can be used to read or write records consec- 
utively on the disk, and that direct-access 1/O statements 


can also be used for reading or writing records consecutively. 


Each input/output statement uses a logical unit number to 
specify which input/output device (or file on a device) is 
to be used in the operation. Logical unit numbers relate 
particular devices or files to the system. For example, in 
this section we use the number 1 to refer to a card reader, 
the number 3 for a printer, the numbers 8 and 9 for disk 
files, and the number 10 for a tape file. A full explanation 
of logical unit number assignments is contained in Part 2 of 
this manual, in Chapter 13, Compilation. 


Chapter 6. Input/Output Statements 


READ and WRITE statements can be used to access 
formatted records, unformatted records, or list-direc ted 
records. 


A formatted record has a FORMAT statement associated 
with it. A FORMAT statement describes the form of the 
data and how i is to be transmitted. Any number of 
records can be read or written with one execution of a 
formatted READ or WRITE staternent. The data in the 
records are converted according to specifications listed in 
the FORMAT statement and are assigned to (or taken 
from) elements listed in the READ or WRITE statement 
A partially filled, formatted record used tor output is 
padded on the right with blanks. 


An unformatted record has no FORMAT statement asso- 
ciated with it. {tf the file is sequential, oniy one record can 
be transmitted per execution of an unformatted 1/O state- 
ment. The unformatted READ 1s used to read records 
that were written on tape or disk by an unformatted 
WRITE statement. A partially filled, unformatted record 
used for output ts padded on the right with zeros. 


A list-directed record is similar to an unformatted record 
in that it has no FORMAT statement associated with it. 
Its use, however, is to transmit records to and frorn any 
sequential file, such as 2 card reader, printer, tape. of clisk. 
A partially filled, list-directed record usec for output 1s 
padded on the right with blanks. 
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Sequential Input/Output Statements 


There are five sequential input/output statements: READ, 
WRITE, END FILE, REWIND, and BACKSPACE. 


The READ and WRITE statements are used to transmit 
data between sequential input/output devices and main 
storage. The END FILE, REWIND, and BACKSPACE 
statements are used only for sequential disk files and tape 
files. For a further discussion of sequential disk files and 
tape files, see Sequential Disk & Tape Programming 
Considerations in Part 3, Programming Considerations 

of this publication. 


READ STATEMENT 
The general forms of the READ statement are: 


Formatted read: READ (au, f,END=s,ERR=t) list 
Unformatted read: READ (u,END=s,ERR=t) list 
List-directed read: READ (u,*,END=s,ERR=t) list 


where 


u is an unsigned integer constant or INTEGER *4 
variable that is the logical unit number of the device to 
read from. 


f is the statement number of the FORMAT statement 
describing the data items to read. 


*specifies list-directed data mode for sequential devices, 
that is, without use of a FORMAT statement. 


ENDé=s is optional and specifies the number (s) of a 
statement to which to transfer control if end-of-file is 
encountered. 


ERR=t is optional and specifies the number (t) of a 
statement to which to transfer control if a transmission 
error occurs during the data transfer. This parameter is 
ignored if the file being processed is not on a disk or 
tape drive. 


If END or ERR is not specified, the preceding comma is 
omitted. 


list is an I/O list; it can contain variable names, array 


elements, array names, or a form called an implied DO. 
The I/O list is optional if f is specified. 


Uses: The READ statement transmits data from a device, 


such as a card reader or magnetic tape unit, to main storage. 
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Considerations/Restrictions: 


1. The program terminates if the END= parameter is not 
specified and an end-of-file record is encountered. 


2. The program terminates if an ERR= parameter is not 
specified and a transmission error occurs. 


3. There is no end-of-file from a 5406 console kevbuard. 


Examples: 
READ (9,100) D,E,F 


The preceding formatted READ statement reads data from 
the file whose logical unit number is 9, (assume a disk file) 
into the variables D, E, and F, in the format specified by 
the FORMAT statement numbered 100. 


READ (1,98) A,B,(C(I,K),1=1,10) 


The preceding formatted READ statement reads data from 
the file whose logical unit number is 1 (assume a card 
reader) into the variables A and B, and the array elements 
C(1,K), C(2,K), ..., C(10,K) in the format specified in the 
FORMAT statement whose statement number is 98. 


READ (J) A,B,C 


The preceding unformatted READ statement reads data 
from the file whose logical unit number is the current value 
of J into the variables A, B, and C. 


READ (1,*,END=200) (ARRAY (1),1=1,25),B(1),C(6) 


The preceding list-directed READ statement reads clata 
from the file whose logical unit number is 1 into the 27 
array elements specified by the list. If an end-of-file record 
is encountered, control is transferred to the statement 
numbered 200. 


WRITE STATEMENT 
The general forms of the WRITE statement are: 


Formatted write: WRITE (u,f) list 
Unformatted write: WRITE (u) list 
List-directed write: WRITE (u,*) list 


where 


u is an unsigned integer constant or INTEGER*«4 
variable that is the logical unit number of the device to 
be written on. 


f is the statement number of the FORMAT statement 
that describes the data items to be written. 


* specifies list-directed data mode for sequential devices, 
that is, without the use of a FORMAT statement. 


list is an I/O list; it can contain variable names, array 
elements, array names, or a form called an implied DO. 
The I/O list is optional if f is specified. 


Uses: The WRITE statement transmits data from main 
storage to a device, such as a printer or disk. 


Considerations/Restrictions: The END and ERR parameters 
cannot be specified in the WRITE statement. 


Examples: 
WRITE (3,75) A,(B(1,3),1=1,10,2),C 


The preceding formatted WRITE statement writes data 
from the variables A and C and array elements B(1,3), 
B(3,3), B(5,3), B(7,3), and B(9,3) onto the file whose 
logical unit number is 3 (a printer) according to the format 
specified by the FORMAT statement whose number is 75. 


WRITE (4) ARRAY 


The preceding unformatted WRITE statement writes data 
from the variable ARRAY onto the file whose logical unit 
number is 4. If ARRAY is an array with 25 elements, al} 
25 elements are written. Since the record is unformatted, 
no FORMAT statement number is given, and none should 
be specified when the record is read back into storage. 


WRITE (2,*) LN(1) 
The preceding list-directed WRITE statement writes the 


data from the variable | and the array element N(I) on the 
unit-record device whose logical unit number is 2. 


END FILE STATEMENT 
The general form of the END FILE statement is: 
END FILE i 


where 
1 is an unsigned integer constant or INTEGER *4 variable 
that is the logical unit number of a magnetic tape or a 
sequential disk file. 


Uses: The END FILE statement writes an ent-of-Jile cecord 
on the tape or sequential disk that has logical unit number i. 


Considerations/Restrictions: An END FILE request 
followed by another END FILE to the same fogical unit 
causes a terminating error. 


Examples: 
END FILE 10 
END FILE K 
BACKSPACE STATEMENT 
The generai form of the BACKSPACE statement is: 
BACKSPACE i 
where 
i is an unsigned integer constant or INTEGER? 4 vanabie 


that is the logical unit number of a magneiic tane oF 
sequential disk file. 


Uses: The BACKSPACE staternent causes a tape or soques 
tiai disk file with a logical unit number of f te ce backspace 
one record. 





Examples: 


BACKSPACE 10 
BACKSPACE K 


InputOurput Staceineris 45 


REWIND STATEMENT 

The general form of the REWIND statement is: 
REWIND i 

where 


i is an unsigned integer constant or INTEGER “*4 variable 
that is the logical unit number of a magnetic tape or 
sequential disk file. 


Uses: The REWIND statement causes a tape or sequential 
disk file with a logical unit number of i to be rewound to 
the beginning of the file. The REWIND statement also 
closes the file. 


Considerations/Restrictions: When a file is rewound, an- 
other REWIND request to that file is ignored. 


Examples: 


REWIND 10 
REWIND K 
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Direct-Access Input/Output Statements 


The direct-access statements permit a programmer to read 
and write records randomly from any location within a 
file. They contrast with the sequential input/output state- 
ments, described previously, that process records, one after 
the other, from the beginning of a file to its end. With 

the direct-access statements, a programmer can go directly 
to any point in the file, process a record, and go directly 
to any other point without having to process all the 
records in between. 


There are four direct-access input/output statements: 
READ, WRITE, DEFINE FILE, and FIND. 


The READ and WRITE statements transfer data into or 
out of main storage. These statements allow the user to 
specify the location within a file from which data is to be 
read or into which data is to be written. 


The DEFINE FILE statement describes the characteristics 
of the file(s) to be used during a direct-access operation. 


The FIND statement points to the next record required. 


In addition to these four statements, the FORMAT state- 

ment (described previously) specifies the form in which to 
transmit data. The direct-access READ and WRITE state- 
ments and the FIND statement are the only input/output 

statements that can refer to a logical unit number defined 

by a DEFINE FILE statement. 


Each record in a direct-access file has a unique record 
number associated with it. The programmer must specify 
in the READ, WRITE, and FIND statements not only the 
logical unit number, as for sequential input/output 
statements, but also the number of the record to be read, 
written, or found. Specifying the record number permits 
processing selected records of the file, instead of records in 
their sequential order. 


The number of the record physically following the one just 
processed is made available to the program in an integer 
variable catled the associated variable. Thus, if the 
associated variable is used in a READ or WRITE statement 
to specify the record number, sequential processing ts 
automatically secured. The associated variable is specified 
in the DEFINE FILE statement, which also gives the 
number, size, and type of the records in the direct-access 
file. 


For a further discussion of direct-access files, see Direct- 
Access Programming Considerations section of this 
publication. 


DEFINE FILE STATEMENT 
The general form of the DEFINE FILE statement is: 


DEFINE FILE uy (rq ,$1,£),V1 ),Us (ro $9, fo veh... 
Un (tn Snsfn.Vn) 


where 


each u is an unsigned integer constant that is the logical 
unit number. 


each r is an unsigned integer constant that specifies the 
number of records in the file associated with u. System/3 
does not use the number of records field (r) in the 
DEFINE FILE statement as a check for accessing 

records outside the range of the file. The range or size 

of the file is set by the FiLE statement via the tracks 

or records parameter. 


each s is an unsigned integer constant that specifies the 
maximum size of each record associated with u. The 
record size is measured in characters {pytes!, storage 
locations (bytes), or storage units (worcis!. (A storage 
unit is the number of storage tocations divided by four 
and rounded to the next highest integer.} The riethod 
used to measure the record size depends upon the 
specification for f. 


each f specifies that the file is to be read or written 
either with or without format control; f can be one of 
the following letters: 


L to indicate that the file is to be read or wiitten 
either with or without format contrsi, 





and that the 





record size is measured in number Gi ote 
(bytes). 


Wye eo Caton 


E to indicate that the file is to ic seas 





with format control fas specified by a FORMAT 
statement), and that the record size is foasuied in 
number of characters (bytes). 


U to indicate that the file is to he read or wrivter: 
without format contro}, and that the record son o> 





measured in number of storage units (arcs; Tae 
DEFINE FILE statement with U specified meas: 
record size in four-byte words. The wots e 
length should be considered when Sete ry ures 
length. 
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each v is an integer variable called an associated variable. 
At the conclusion of each read or write option, v is 

set to a value that points to the record that immediately 
follows the last record transmitted. At the conclusion 
of a find operation, v is set to a value that points to the 
record found. The value of the associated variable must 
be set before the first read or write operation on the 
file. 


Uses: The DEFINE FILE statement describes the character- 
istics of one or more direct-access files. To use the direct- 
access READ, WRITE, and FIND statements in a program, 
the file must be described with a DEFINE FILE statement. 
Each direct-access file must be described once, and only once, 
in the main program. 


Considerations/Restrictions: 


1. The DEFINE FILE statement cannot be used in a 
subprogram, 


2. The associated variable cannot appear in the I/O list 
of a READ or WRITE statement for a file with which 
it is associated. 


3. The value of the associated variable should be set 
before the first read or write operation. 


4. An associated variable passed to a subprogram as an 
argument in a CALL statement /s not automatically 
updated when input/output operations are performed 
in the subroutine. (The associated variable /s updated 
if it is passed to a subprogram via COMMON or 
GLOBAL, instead of through the argument list.) 


Examples: 
DEFINE FILE 8(50,100,L,!2),9(100,50,L,J3) 


The preceding DEFINE FILE statement describes two 

files, referred to by logical unit numbers 8 and 9. The data 
in the first file consists of 50 records, each with a maximum 
length of 100 storage locations. The L specifies that the 
data is to be transmitted either with or without format 
control. {2 is the associated variable that points to the 

next record. 


The data in the second file consists of 100 records, each 
with a maximum length of 50 storage locations. The L 
specifies that the data is to be transmitted either with or 
without format control. J3 is the associated variable that 
points to the next record. 
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If an E is substituted for each L in the preceding DEFINE 
FILE statement, a FORMAT statement is required and the 
data is transmitted under format control. 


If the data is to be transmitted without format control, 
the DEFINE FILE statement can be written as: 


DEFINE FILE 8(50,25,U,12),9(100,13,U,J3) 


DIRECT-ACCESS READ STATEMENT 


The general form of the direct-access READ statement is: 
READ (u’r,f, ERR=s) list 
where 


u is an unsigned integer constant or an integer variable 
of length 4 that represents a logical unit number; u must 
be followed by an apostrophe ('). 


r, the relative record number, is an integer expression 
that represents the relative position of a record within 
the file associated with u. The relative record number of 
the first record of a direct-access file is 1. 


f is optional and, if given, specifies the statement number 
of the FORMAT statement that describes the data being 
read. 


ERR=s is optional and s is the number of a statement in 
the same program unit as the READ statement to which 
control is given when a device error condition is 

encountered during data transfer from device to storage. 


list is an 1/O list; it can contain variable names, array 
elements, array names, or a form called an implied DO. 
The 1/O list is optional if f is specified. 


Uses: The direct-access READ statement transfers data 
from a direct-access device to main storage. 


Considerations/Restrictions: 


1. The file being read must be defined by a DEFINE 
FILE statement. 


2. The t/O list must not contain the associated variable 
defined in the DEFINE FILE statement for file u. 


3. The END= parameter cannot be specified in a direct- 
access REAT) statement. 


Example: 


DEFINE FILE 8(500,100,L,1D1),9(100,28,L,1D2) 
DIMENSION M(10) 


ID2= 21 


. 


10 FORMAT (5120) 
9 READ (8'16,10) (M(K),K=1,10) 


13. READ (9’1D2+5) A,B,C,D,E,F,G 


In the preceding example, READ statement 9 transmits 
data from the file associated with logical unit number 8, 
under control of FORMAT statement 10; transmission 
begins with record 16. Ten data items of 20 characters 
each are read as specified by the !/O list and FORMAT 
statement 10. Two records are read to satisfy the I/O list, 


because each record, as defined by the FORMAT statement, 


contains only five data items (100 characters). The 
associated variable ID1 is set to a value of 18 at the conclu- 
sion of the operation. 


READ statement 13 transmits data from the file associated 
with logical unit number 9, without format control; 
transmission begins with record 26. Data ts read until the 
1/O list for statement 13 is satisfied or until the end of the 
record, whichever occurs first. Because the DEFINE FILE 
statement for file 9 specified the record length as 28 
storage locations, the I/O list of statement 13 calls for the 
same arnount of data (the seven variables are type real and 
each occupies four storage locations). The associated 
variable 1D2 is set to a value of 27 at the conclusion of the 
operation. If the value of !D2 is unchanged, the next 
execution of statement 13 reads record 32. 


The DEFINE FILE statement in the previous example can 
also be written as: 


DEFINE FILE 8{500,100,E,1D1),9{100,7.U,1D2) 


The FORMAT statement can also controi the point at 
which reading starts. For example, if statement 10 in the 
example is 


10 FORMAT (//5120) 


records 16 and 17 are skipped, record 18 is read, recoras 19 
and 20 are skipped, record 27 is read, and 1D1 is set to a 
value of 22 at the conclusion of the READ operation in 
statement 9. 


DIRECT-ACCESS WRITE STATEMENT 


Tome tS! 


The general form of the direct-access WRITE six 
WRITE (u’r,f) fist 
where 


u is an unsigned integer constant or INTEGER +4 variable 
that represents a logical unit nurnber; u musi be followed 
by an apostrophe (’). 


r, the relative record number, is an intage: expression 
that represents the relative position of 4 recard win 
the file associated with u. 


f is optional and, if given, specs?! 
of the FORMAT siatemerit trat Geac: 
written. 






list is an {/O hist; it can contan, variable nares, 





elements, array nanics, or a fortn called an apt E ; 
it is optional if f is specified. 


Uses: The direct-access WRITE staterient thosotinc siata 
from main storage to a direct-access Sow? 
Considerations/Restrictions: 


1. The file being written must be dehne is 2a: 
FILE statenvent. 





2; The 1/O fist must not coniain th 
defined in the DEFINE FPlS steterne: 


3. The ERR= and END= pareniciers cane ot 
on a direct-access WPITE statement 


treats TT tba ue at 


Example: 


DEFINE FILE 8(500,100,L,1D1),9(100,28,L,1D2) 
DIMENSION M(10) 


ID2=21 


10 FORMAT (5120) 
8 WRITE (8’16,10) (M(K),K=1,10) 


11. WRITE (9’1D2+5) A,B,C,D,E,F,G 
In the preceding example, WRITE statement 8 transmits 
data into the file associated with logical unit number 8, 
under control of FORMAT statement 10; transmission 
begins with record 16. Ten data items of 20 characters 
each are written as specified by the !/O list and FORMAT 
statement 10. Two records are written to satisfy the I/O 
list because each record contains five data items (100 
characters). The associated variable ID1 is set to a value of 
18 at the conclusion of the operation. 


WRITE staternent 17 transmits data into the file associated 
with logical unit number 9, without format control; 
transrnission begins with record 26. The contents of 28 
storage locations are written as specified by the I/O list for 
statement 11. The associated variable 1D2 is set to a value 
of 27 at the conclusion of the operation. Note the 
correspondence between the records described (28 storage 
locations per record) and the number of items called for by 
the I/O list (7 variables, type real, each occupying four 
storage locations). 


The DEFINE FILE statement in the example can also be 
written as: 


DEFINE FILE 8(500,100,E,1D1),9(100,7,U,1D2) 


As with the READ statement, a FORMAT statement can 
also be used to control the point at which writing starts. 
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FIND STATEMENT 

The general form of the FIND statement is: 
FIND (u’r) 

where 
u is an unsigned integer constant or INTEGER *4 vuriable 
that represents a logical unit number; u must be followed 
by an apostrophe (’). 
r, the relative record number, is an integer expression 


that represents the relative position of a record within 
the file associated with u. 


Uses: The FIND statement updates the associated variable 
for the direct-access file with a logical unit number, u, to 
the value of the relative record number, r. 


Considerations/Restrictions: 


1. No actual !/O operations are performed. 


2. The file referred to in the FIND statement must be 


defined by a DEFINE FILE statement. 


Example: 


DEFINE FILE 8(1000,80,L,!1VAR) 
10 FIND (8’50) 


. 


15 READ (8'50) A,B 


After the FIND statement is executed, the value of IVAR 
is 50. After the READ statement is executed, the value is 
51. 


General Example—Direct-Access Operations 


DEFINE FILE 8(1000,72,L,1D8) 
DIMENSION A(100),B(100),C(100),D (100), 
£(100),F (100) 
15 FORMAT (6F12.4) 
FIND (8°1) 
DO 100 1=1,100 
100 READ (8'1D8+4,15)A(1),B(1),C(),D(1),E(),F (1) 


DO 200 I=1,100 
200 WRITE (8'1D8+4,15)A(1),B(1),C(1), D (1), E(), FU) 


END 


The general example illustrates the ability of direct access 
statements to gather and disperse data in an order desig- 
nated by the user. The first DO loop in the example fills 
arrays A through F with data from the fifth, tenth, fitteenth, 
...,and five hundredth record associated with logical unit 
number 8. Array A receives the first value in every fifth 
record, B the second value and so on, as specified by 
FORMAT statement 15 and the 1/0 list of the READ 
statement. At the end of the READ operation, the records 
are dispersed into arrays A through F. At the conclusion of 
the first DO loop, 1D8 has a value of 501. 


The second DO loop in the example groups the data items 
from each array, as specified by the i/O list of the WRITE 
statement and FORMAT statement 15. Each group of data 
items is placed in the file associated with logical unit 
number 8. Writing begins at the five hundred fifth record 
and continues at intervals of five, until record 1000 is 
written, if 1D8 is not changed between the last READ and 
the first WRITE. 


The FIND statement initially sets 1ID8 to 1. 


input/Outpur Stetemerts 4a 
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The specification statements are nonexecutable statements 
that provide the compiler with information about the nature 
of data used in the source program. In addition, they supply 
the information required to allocate locations in storage for 
this data. 


Specifications must precede statement function definitions, 
which must precede the program part containing at least 
one executable statement. The PROGRAM statement, if 
present, must precede all statements in a main program. 
The IMPLICIT statement, if present, must precede all state- 
ments in a main program except the PROGRAM statement, 
and ali statements in a subprogram except the FUNCTION 
or SUBROUTINE statement. 


TYPE STATEMENTS 

There are two kinds of type statements: the IMPLICIT 

specification statement, and the explicit specification state- 

ments, REAL and INTEGER. 

The IMPLICIT statement enables you to: 

@ Specify the type (including length) of all variables, 
arrays, and user-supplied functions whose names begin 
with a particular letter 


The explicit specification statements enable you to: 


@ Specify the type (including length) of a variable, array, 
or user-supplied function of a particular name 


@ Specify the dimensions of an array 
The explicit specification statements override the IMPLICIT 


statement, which, in turn, overrides the predefined conven- 
tion for specifying type. 


Chapter 7. Specification Statements 


IMPLICIT Statement 
The general form of the IMPLICIT statement 


IMPLICIT type, *s; (ay1 *AL2e-- J, ... typen *Snlani, 
an2,...) 


where 
type is either INTEGER or REAL. 


each *s is optional and represents one of the permissible 
length specifications for its associated type. 


each a is a single alphabetic character or a range of 
characters drawn from the set A, B,..., Z,$, in that 
order. The range is denoted by the first and last charac- 
ters of the range separated by a minus sign (for example, 
(A-D)). 


Uses: This statement specifies the type (including length) 
of all variables, arrays, and user-supplied functions whose 
names begin with a particular letter. The types that a 
variable, array, or function can assume, along with the 
permissible length specifications, are as follows: 


Type Length Specification 


INTEGER 
REAL 


2 or 4 (standard lergth is 4) 
4 or 8 (standard length is 4) 


If the standard fength is desired, the *s can be oimitted, H 
the optional length is desired, the *s must be included in 
the IMPLICIT statement. 


Specificatian Stacaments 


Considerations/Restrictions: 


1. fn a matin program, tf IMPLICIT is specified, it must 
immediately follow the PROGRAM statement, or be 
the first staten ent if PROGRAM is not specified. 


2. In a subprogram, if IMPLICIT is specified, it must 
immediately follow the FUNCTION or SUBROUTINE 
statement. 


3. There can be only one IMPLICIT statement per pro- 
gid'n or subprogram. 


4. The IMPLICIT statement overrides the predefined 
convention for specifying type. 


Examples: 
IMPLICIT REAL (A-H,O-$), INTEGER (I-N) 


All variables beginning with the characters | through N are 
declared as INTEGER. Because no length specification is 
explicitly given (that is, the *s was omitted), four bytes, 
the standard length for INTEGER, are allocated for each 
variable. 


All other variables (those beginning with the characters A 
through H and O through Z and $) are declared as REAL 
with four bytes allocated for each. 


Note that the statement in this example defines the type 
for variables the same as the predefined convention. 


IMPLICIT INTEGER *2(A-H),REAL*8(I-K) 


All variables beginning with the characters A through H are 
declared as integer with two bytes allocated for each. All 
variables beginning with the characters | through K are 
declared as real with eight bytes allocated for each. 


Because the remaining letters of the alphabet, L through Z 
(and $), are left undefined by the IMPLICIT statement, the 
predefined convention remains in effect. Thus, the variables 
beginning with the letters L, M, and N are integer, each with 
a standard length of four bytes, and variables beginning with 
the letters O through $ are real, each with a standard length 
of four bytes. 
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Explicit Specification Statements (INTEGER and REAL) 
The general form of explicit specification statements ts: 
types a; (ky ),a2 (ka), . 2. ay lky) 
where 
type is INTEGER or REAL. 


*s is Optional and represents one of the permissible 
length specifications for its associated type. 


ais a variable, array, or function name. 


k is optional and gives dimension information for arrays. 
Each k is composed of one through three unsigned inte- 
ger constants, separated by commas, representing the 
maximum value of each subscript in the array. 


Uses: This statement specifies the type (including length) 
of a variable, array, or user-supplied function by its name, 
rather than by its initial character. This differs fram the 
other ways of specifying the type (that is, predefined con- 
vention and the IMPLICIT statement). In addition, the 
information necessary to allocate storage for arrays (dimen- 
sion information) can be included within the statement. 


Considerations/Restrictions: 


1. The explicit specification statements override the 
IMPLICIT statements for specifying type. 


2. Explicit specification statements must follow any 
IMPLICIT statement, and must precede executable 
statements in the program. 


Examples: 
INTEGER*2 ITEM,VALUE 


This statement declares that the variables, |TEM and 
VALUE, are of type integer, each with two storage locations 
reserved. 


REAL*8 BAKER HOLD,VALUE,ITEM(5,5) 


This statement declares that the variables, BAKER, HOLD, 
VALUE, and the array named ITEM, are of type real with a 
length of 8 bytes. In addition, it declares that the array 
named ITEM has 200 bytes reserved (8 for each element in 
the array). Note that when the length is associated with 
the type (for example, REAL*8), the length applies to each 
variable in the statement. 


In the same manner in which the IMPLICIT statement over- 
rides the predefined convention, the explicit specification 
statements override the IMPLICIT statement and prede- 
fined convention. If the length specification (*s) is omitted, 
the standard length per type is assumed. 


DIMENSION STATEMENT 

The general form of the DIMENSION statement is: 
DIMENSION a, (k,),a7 (k2),.-. -an(kn) 

where 
a is an array name. 


k is composed of one to three unsigned integer constants, 
separated by commas, representing the maximum value 
of each subscript in the array. 


Uses: This statement provides information necessary to 
allocate storage fo: arrays used in the source program. 


Considerations/Restrictions: The DIMENSION statement 
must precede executable statements and any DATA state- 
ments initializing array a, 


Examples: 


DIMENSION A(10),ARRAY(5,5,5),LIST(10,100) 
DIMENSION B(25,25), TABLE(5,10,15) 


The first statement defines three arrays, A, ARRAY, and 
LIST. The array, A, is a single dimension array consisting 
of ten elements. The array, ARRAY, is a three-dimensional 
array; and LIST is a two-dimensional array. The second 
statement defines a two-dimensional array, B, and a three- 
dimensional array, TABLE. 


COMMON STATEMENT 

The general form of the COMMON statement 
COMMON a, (k, ),a2 (Kz), . . . an (Kn) 

where 


ais a variable name or array name that is not a dummy 
argument. 


k is optional and jis composed of one through three un- 
signed integer constants, separated by commas, repre- 
senting the maximum value ot each subscript in the array. 


Uses: The COMMON statement is used to shate storage by 
two or more program units, and to specify the names oF 
variables and arrays that are to occupy this area. Storage 
sharing can be used for two purposes: to conserve storage, 
by avoiding more than one allocation of storage jor varabivs 
and arrays used by several program units; and to make 
arguments available between a calling program and 4 sul 
program. Arguments passed in a common area do nat 
appear in the argument lists of either the calling program or 
subprogram. Arguments in common are subject to the 
same rules with regard to type, length, etc., as arauments 
passed in an argument list. (These rules ers Ceseribed in the 
section about subprograms.) 


Considerations/Restrictions: 


1. There is no restriction as to Ine number of progr 
units that can have COMMON =tatersents, excort 
that a COMMON statement in a single broeray uns 
serves no purpose other than strictly ordering th 









arrangement of variables in common. bo sho: Taree! 
ally have at least one courtterpart in anoetier poopiant 
unit. 

2. There can be more than one COMMON ciazearneine ip 
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name cannot appear more than oan: : 
statement, in more than ane COMMON sratecune.: 
the same program unit, Grin both a COPIMON coi 


GLOBAL statement. 


Specification Sat 
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Not all program units need refer to all of the variables 
and arrays in common. Thus, in order to maintain 
correct positioning, so-called dummy variables can be 
inserted into the COMMON statement list. These 
dummy arguments are not referred to anywhere else 
in the program unit. Their function is to allow you 
to position variable and array names that otherwise 
would be in the wrong locations in a COMMON 
statement. 


Example: 


Main Program Subprogram 
COMMON 4,B,C,D COMMON DUMMY1,BETA, 
DUMMY3,DELTA 


Because the main program and subprograms have 
access to common storage locations via the COMMON 
statement, they have a way of communicating with 
each other. This means that a value computed in one 
program unit and placed in common storage can be 
used by another program unit in much the same man- 
ner as if it were passed as an argument. This idea be- 
comes clearer when CALL statements and function 
references are discussed, later in this part of the publi- 
cation. 


The GLOBAL statement can be used to pass addition- 
al variables to some subprograms that are not needed 
by other subprograms. (The GLOBAL statement is 
fully described in the section /nterprogram Communi- 
cation. } 


Example: 


PROGRAM MAIN 
GLOBAL A,B,C 
COMMON X,Y,Z 
CALL SUB1 
CALL SUB2 


SUBROUTINE SUB1 
GLOBAL A1,A2,A3 


SUBROUTINE SUB2 
COMMON B1,B2,B3 


SUB1 would share with MAIN variables A, B, and C, 
while SUB2 would share X, Y, and Z. !n this case, 

it is not necessary to introduce dummy variables into 
the common block. 


Example 1: 


Because the entries in a common area share storage locations, 
the order in which they are entered is significant when the 
common area is used to transmit arguments. Consider the 
following example: 


Main Program Subprogram 


COMMON A,B,C,R(100) SUBROUTINE MAPMY 


REAL A,B,C COMMON X,Y ,Z,S(100) 
INTEGER R REAL X,Y,Z 
: INTEGERS 
CALL MAPMY 


The statement COMMON A,B,C,R(100) in the main pro- 
gram reserves 412 storage locations (four locations per 
variable) in the following order: 


Beginning of 
Common Area 





4 Storage Locations 


The statement COMMON X, Y, Z,S(100) in the subprogram 
then causes the variables X, Y, Z, and S(1),. . . ,S(100) to 
share the same storage space as A,B, C, and R(1),..., 
R(100). 


Example 2: 


Assume a common area is defined in a main program and in 
three subprogram: as follows: 


Main Program COMMON A,B,C (A and B are 8 stor- 
age locations; C is 4 storage 
locations.) 

Subprogram 1 COMMON D,E,F (D and E are B stor- 
age locations; F is 4 storage 
locations.) 

Subprogram 2: COMMON Q,R,S,T,U (4 storage 
locations each.) 

Subprogram 3: COMMON V.W,_X,Y,Z (4 storage 
locations each.) 


The correspondence of these variables within common can 
be illustrated as tullows: 





Main Program Subprogram 1 
COMMON A,B,C COMMON D,E,F 

3 
4 Storage Locations 4 Storage Locations 


The main progra'n can transmit values for A, B, and C to 
subprogram 1, provided that C is of the same type as F. 
However, the man program and subprogram 1 cannot, by 
assigning values to the variables A and B, or D and E, trans- 
mit values to the variables Q, R, S, and T in subprogram 2, 
or V,W, X, and Y in subprogram 3, because the lengths of 
their common variables differ. Likewise, subprograms 2 
and 3 cannot transmit values to variables A and B, or D 
and E. 


Values can be transmitted between variables C, F,U,and 
Z, assuming that each is of the same type. With the same 
assumption, values can be transmitted between Q and Vv, 

R and W, Sand X, and T and Y. Note, however, that 
assignment of values to A or D destroys any values assigned 
to Q, R, V, and W, (and vice versa) and that assignment to 
B and E destroys the values of S, T, X, and Y (and vice 
versa). 


Subprogram 2 


COMMON Q,RS,T,U 





4 Storage Locations 


Subprogram 3 


COMMON V,W,X,Y,2 





4 Storage Locations 
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EQUIVALENCE STATEMENT 
The general form of the EQUIVALENCE statement is: 


EQUIVALENCE (a, 1,4; 2,413... 
wealpods 


}fa2 5 22 1923, 


where 


a is a variable or array element. a cannot bea dummy 
argument The subscripts of array elements can have 
either of two forms: 


it the array element has a single subscript, the sub- 
script refers to the linear position of the element in 
the array (that is, its position relative to the first ele- 
ment in the array: third element, seventeenth element 
two huridred fifty-ninth element). 


’ 


If the array element has more than one subscript (with 
the number of subscripts equal to tiie number of 
dimensions of the array), the subscript refers to posi- 
tion in the same manner as in an arithmetic statement 
(that is, its position relative to the first element of 
each dimension of the avray). In either case, the sub- 
scripts themselves must be unsigned integer constants. 


Uses: The EQUIVA!_EZNCE statement provides the option 
for controlling the allocation of data storage within a 
single program unit. In particular, when the logic of the 
program permits it, the number of storage locations used 
can be reduced by causitig locations to be shared by two 
or more variables (of the same or different types). Equival- 
ence between variables implies storage sharing. 


Considerations/Restrictions: 
1. a cannot be a dummy argument. 


as All the elements within a single set of parentheses 
share the same storage locations. The order of appear- 
ance of names within an equivalence group is im- 
material. 


3. Mathematical equivaleice of variables or array ele- 
ments is implied only when they are of the same 
type, when they share exactly the same storage, and 
when the value assigned to the storage is of that type. 


4. Because arrays are stored in a predetermined order as 
discussed previously, equivalencing two elements of 
two different arrays will implicitly equivalence other 
elements of the two arrays. (The one exception is 
when the first element of an array is equivalenced to 
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the last element of another array.) The EQUIVAL- 
ENCE statement must not conc adict itself or any 
previously established equivaiences. 


5. The EQUIVALENCE statemeni is the only statement 
in whicn a single subscript can be used to refer to an 
element for elements) in a muitidimensiona! array. 


6. Variables that appear in COMMON or GLORA). 
statements cannot be made equivalent ic each other. 
However, 4 variable can be made equivaient to a 
variable in common o¢ global. If the variable that is 
equivalenced te a variable in commor er global is an 
element of an array, the implicit equivalencing of the 
rest of the elements of the array can extend the size 
of common or gicbal as shown in the following 
examples. The size of common or global carinot be 
extended so that elements are added before the begin- 
ning of the established common or global area. 


Example 7: 


Assume that in the initial part of a program, an array, C, 
of size 10x10 is needed; in the final stages of the program, 
Cis no longer used, but arrays A and B of sizes 5x5 and 
10, respectively, are used. The elements of all three arrays 
are of the type REAL «4. Storage space can then be saved 
by using the statements: 


DIMENSION C(10,70),A(5,5),B(10) 
EQUIVALENCE (C(1),A(1)),(C(26),B(1)) 


The array A, which has 25 elements, can occupy the same 
storage as the first 25 elements of array C because the 
arrays are not both needed at the same time. Similarly, the 
array B can share storage with elements 26 to 35 of array 
C. 


Example 2: 


DIMENSION B(5),C(10,10),D(5,10,15) 
EQUIVALENCE (A,B(1},C(5,3)).(D(5,10,2),E) 


This EQUIVALENCE statement specifies that the variables 
A, B(1), and C(5,3) are assigned the same storage locations 
and that variables D(5,10,2) and E are assigned the same 
storage locations. It also implies that the array elements 
B(2) and C(6,3), etc., are assigned the same storage locations. 
Note that further equivalence specification of B(2) with 

any element of array C other than C(6,3) is invalid. 


Example 3: 


COMMON A,B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(1)) 


This establishes a common area containing the variables A, 
B, and C. The EQUIVALENCE statement would then 
cause the variable D(1) to share the same storage location 
as B, D(2) to share the same storage location as C, and 
D(3) would extend the size of the common area, in the 
following manner: 


A (lowest location of the common area) 
B,D(1) 
C,D(2) 

D(3) (highest location of the common area) 


The following EQUIVALENCE statement is invalid: 
GLOBAL A,B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(3)) 


because it would force D(1) to precede A, as follows: 


D(1) 
A,D(2} (lowest location of the common area) 
B,D(3) 
Cc (highest location of the common area) 
Example 4: 


A real variable (REAL*8) is equivatenced to several ele- 


ments in an integer (INTEGER “*2) array. This can be done 


to address two bytes of an eight-byte field. The storage 
space can be shared by using the following statements: 


REAL*8D 
INTEGER*2 I(4) 
EQUIVALENCE (D,1(1)) 


The four elements of array | share storage with variable D 
as follows: 


Sign 








OTHER SPECIFICATION STATEMENTS 


There are four other specification statements: EXTERNAL, 
GENERIC, PROGRAM, and GLOBAL. EXTERNAL and 
GENERIC are discussed in the following chapter, which 
deals with subprograms. PROGRAM and GLOBAL are 
discussed in the chapter /nterprogram Communication. 


DATA INITIALIZATION STATEMENT 

The general form of the DATA statement ts: 
DATA ky /i, *dy /,k2/ig *d3/,..., ky lin ody? 

where 
k is a list containing variables, array elements (in which 
case, the subscript quantities must be unsigned integer 


constants), or array names. 


dis a list of constants (integer, real, hexadecimal, or 
literal). 


i* js optional and is an unsigned integer constant appear- 
ing before d, indicating that d is to be specified i times. 


Uses: This statement defines initial values of variables, 
array elements, or arrays. 


Specification Stusemen: 


Considerations/Restrictions: 


1. There must be a one-to-one correspondence between 
data elements (k) and initializing constants (d). 
However, this correspondence can be violated when 
initializing arrays with literal data. An array element 
can be initialized by subscripting the array name. 
Only one element is initialized this way. If any excess 
characters are specified, they are truncated and not 
placed into the next element. If there are not enough 
characters specified, the element is padded on the 
right with blanks. 


Several consecutive elements of an array can be 
initialized with a single literal constant by specifying 
the array name without a subscript. Data spill (over- 
flow data from one element to the next) occurs 
through as many elements as necessary to insert the 
constant. tf the last element initialized is only 
partially filled, it is padded on the right with blanks. 
(Any subsequent array elements are not initialized.) 
Truncation occurs if the constant exceeds the limit 
of the array. 


2. For real and integer types, each constant must agree 
in type with the variable or array element it 1s 
initializing. 


3. A variable, array element, or array that is ina 
common or globai area cannot be initialized with a 
DATA statement. 


4. Dummy arguments cannot appear in list k. 


on 


The DATA statement must precede any statement 
that uses the initialized variable, and must follow 
any specification statement describing the variable. 


Examples: 


DIMENSION D(5,10) 
DATA A,B,C/5.0,6.1,7.3/,D,E/25*1.0,25*2.0,5.1/ 


The DATA statement indicates that the variables A,B, and 
C are to be initialized to the values 5.0, 6.1, and 7.3 
respectively. In addition, the statement specifies that the 
first 25 elements of the array D are to be initialized to the 
value 1.0, the remaining 25 elements of D to the value 2.0, 
and the variable E to the vatue 5.1. 


DIMENSION A(5), B(3,3) 
DATA A/5*1.0/, B/9*2.0/,C//FOUR’/,STRING/ZOF/ 
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The DATA statement specifies that all the elements in the 
arrays A and B are to be initialized to the values 1.0 and 
2.0, respectively. In addition, the variable C is initialized 
with the literal data constant FOUR, and the variable 
STRING is initialized with the hexadecimal data OF, 
DIMENSION A(10),B(9)},C(2) 
DATA A(1),A(2),A(4),A(5)/‘ABCD’,/ORSTUVW’, 
‘123’ '6666'/ 
DATA B/‘ABCDEF GHIJK LMNOPORSTUVWXYZ’/ 
DATA C/‘ABCDEFGHIJKL’/,X/“MNOP’/ 


Through the DATA statements above, storage would be 
initialized as follows: 


A(1) contains ABCD. 
A(2) contains QRST. 


A(3) is not initialized (spill does not occur for a 
subscripted array name). 


A(4) contains 1236. 
A(5) contains 6666. 
A(6) through A(10) are not initialized. 
B(1) contains ABCD. 
B(2) contains EF GH. 
B(3) contains IJKL. 
B(4) contains MNOP. 
B(5) contains ORST. 
B(6) contains UVWX. 
B(7) contains YZ 6. 
B(8) is not initialized. 
B(Q) is not initialized. 
C(1) contains ABCD. 


C(2) contains EFGH. (The remainder of the constant 
is truncated.) 


X contains MNOP. 


It is sometimes necessary to write a program which, at 
various points, requires the same computation to be per- 
formed with different data for each calculation. It would 
simplify the writing of that program if the statements 
required to perform the desired computation could be 
written only once and then referred to freely, with each 
subsequent reference having the same effect as though 
these instructions were written at the point in the program 
where the reference was made. 


For example, to take the cube root of a number, a program 
must be written with this object in mind. If a general 
program were written to take the cube root of any number, 
it would be desirable to be able to combine that program 
(or subprogram) with other programs where cube root 
calculations are required. 


The FORTRAN language provides for the above situation 
through the use of subprograms. There are two classes of 
subprograms: FUNCTION subprograms and subroutine 
subprograms. In addition, there is a group of FORTRAN- 
supplied subprograms. Function subprograms return at 
least one value to the calling program, whereas subroutine 
subprograms need not return any. In addition, the method 
of referring to the two kinds of subprograms is different. 


A subprogram must never refer to itself directly or 
indirectly. 


Statement functions are also discussed in this section 
because they are similar to function subprograms. The 
difference is that subprograms are not in the same program 
unit as the program unit referring to them, whereas state- 
ment function definitions and references are in the same 
program unit. 


Naming Subprograms 


A subprogram names consists of from one through six 
alphameric characters, the first of which must be alphabetic 
but not a $. A subprogram name cannot contain special 
characters. The type of a function determines the type of 
the result that can be returned from it. 


Type Declaration of a Statement Function: The declaration 
can be accomplished in one of three ways: by the prede- 
fined convention, by the IMPLICIT statement, or by the 
explicit specification statements. Thus, the rules for 
declaring the type of variables apply to statement functions. 


Chapter 8. Subprograms 


Type Declaration of FUNCTION Subprograms.: The 
declaration can be made by the predefined convention, by 
the IMPLICIT statement, by an explicit specification in the 
FUNCTION statement, or by an explicit specification 
statement within the function subprogram. Note that if 
the predefined convention is not used, the function must 
specify the type both in the function subprogram and in 
each program unit that refers to the function. 


No type is associated with a subroutine name because the 
types of results that are returned to the calling program 
are dependent only on the types of the variable names 
appearing in the argument list of the calling program and 
the implicit arguments in common or global. 


STATEMENT FUNCTIONS 
A function is a statement of the relationship between a 
number of variables. To use a function in FORTRAN, it ts 


necessary to: 


1, Define the function (that is, specify which calcula- 
tions to perform) 


2. Refer to the function by name when you want to 
use it in the program 
Function Definition 


There are three steps in the definition of a functian in 
FORTRAN: 


i. The function must be assigned a name by which tt 
can be called 


2. The dummy arguments of the function must be stated 
3. The procedure for evaluating the tuectionm mus: bs 
stated 


Items 2 and 3 are discussed in deiati in the 





with the specific subprogramic, statement circa 
FUNCTION subprograms. 


SUS GHP atts as 


Function Reference 


When the name of a function, followed by a list of its 
arguments, appears in any FORTRAN expression, it refers 
to the function and performs the computations as indicated 
by the function definition. The resulting quantity (the 
function value) replaces the function reference in the 
expression and assumes the type of the function. The type 
of the name used for the reference must agree with the 
type of the name used in the definition. 


Using the result of one function as an argument to another 
function is called nesting. Nesting of functions cannot be 
more than 20 levels deep. 


The general form of a statement function definition is: 


name(a, ,42,43, . . . ,an)=expression 


where 


name is the statement function name. The name con- 
sists of from one to six alphabetic or numeric characters, 
the first of which must be alphabetic but not $. 


aisadummy argument. !t must be a distinct variable 
(it can appear only once within the list of arguments). 
There must be at least one dummy argument; and no 
more than 15. 


expression is any arithmetic expression that does not con- 
tain array elements. Any statement function appearing in 
this expression must be defined previously. 


Uses: A statement function definition specifies operations 
to be performed whenever that statement function name 
appears as a function reference in another statement in the 
same program unit. 


The expression to the right of the equal sign defines the 
operations to perform when a reference to this function 
appears in a statement elsewhere in the program unit. The 
expression defining the function must not contain a 
reference to the function it is defining. 


The dummy arguments enclosed in parentheses following 

the function name are dummy variables. The arguments 
given in the function reference are substituted for the 
dummy variables when the function reference is encoun- 
tered. The same dummy arguments can be used in more 

than one statement function definition, and can be used 

as variables outside the statement function definitions. An 
actual argument in a statement function reference can be 

any expression of the same type as the corresponding dummy 
argument. 
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Considerations/Restrictions: 


1. Dummy arguments can appear only once in the list 
of arguments. 


2. There must be at least one dummy argument, (a), 
and no more than 15. 


3. Any statement functions appearing in the expression 
must be defined previously. 


4. The expression defining the function must not 
contain a reference to the function it is defining. 


5. Arguments can be variables only (the expression can 
contain constants). 


6. All statement function definitions used in 4 program 
must precede the first executable statement of the 
program. 

ce Expressions cannot contain array elements. 


Example: The statement: 
FUNC{A,B)=3.*AtB**2.4+X+Y4Z 


defines the statement function FUNC, where FUNC is the 
function name and A and B are the dummy arguments. 
The expression to the right of the equal sign defines the 
Operations to be performed when the function reference 
appears in an arithmetic statement. 


The function reference might appear in a statement as follows: 
C=FUNC(D,E) 

This is equivalent to: 
C=3.*D+E**2.4X+Y+Z 

Note the correspondence between the dummy arguments 


A and B in the function definition and the actual arguments 
D and E in the function reference. 


The following are valid statement function definitions and 
statement function references: 
Function Definition Function Reference 
SUM(A,B,C,D)= 
A+B+C+D 
FUNC(Z)=AtX#Y*Z 


NET=GROS-SUM(TAX,OLDAGE, 
HOSP,STOCK) 
ANS=FUNC(RESULT) 


The following are /nvalid statement function definitions: 


Function Definition 


SUBPRG(3,J,K)= 
3*|tJ**3 
SOMEF(A(1),B)= 
A(l)/B+3. 
SUBPROGRAM 
(A,B)=A**2+B ¥*2 
3FUNC(D)=3.14*E 


ASF(A)=A+B(1) 


BAD(A,B)=A+Bt 
BAD(C,D) 

NOGOOD(A,A)= 
A*xA 


Reason 
Arguments must be variables. 


Arguments must not be array 
elements. 

Function name exceeds the limit 
of six characters. 

Function name must begin with 
an alphabetic character. 

Expressions cannot contain an 
array element. 

Definition not permitted to refer 
to itself. 

Arguments are not distinct 
variable names. 


The following are invalid statement function references 
(the functions are defined previously): 


Function Reference 


WRONG=SUM 
(TAX,FICA) 
MIX=FUNC(1) 


Reason 


Number of arguments does not 
agree with definition. 

Type of argument does not agree 
with above definition. 


FUNCTION SUBPRCGRAMS 


The general form of the FUNCTION statement 


type FUNCTION name*s (a;,a2,43,.. - an) 


where 


type is INTEGER or REAL. Its inclusion Is optional. 


name is the name of the FUNCTION, consisting of from 
one to six alphabetic or numeric characters, the first of 
which must be alphabetic but not $. 


$ represents one of the permissible length specifications 
for its associated type. It can be included optionally 
only when type is specified. 


aisa dummy argument. It must be a distinct variable or 
array name (that is, it can appear only once within the 
statement) or dummy name of a SUBROUTINE or 
other function subprogram. There must be at least 

one argument in the argument list. 


Uses: The function subprogram is a FORTRAN subprogram 
consisting of a FUNCTION statement followed by other 
statements including a RETURN and an END statement. It 
is an independently written program that is executed when 
its name is referred to in another program. 


A type declaration for a function name can be made by the 
predefined convention, by an IMPLICIT statement, by an 
explicit specification in the FUNCTION statement, or by 
an explicit specification statement within the function 
subprogram. The function name must also specify type in 
the program units that refer to it if the predefined conven- 
tion is not used. 


Because the subprogram is a separate program unit, there is 
no conflict if the variable names and statement numbers 
within it are the same as those in other prograrn units. 


Considerations/Restrictions: 


1. The FUNCTION statement must be the first statement 
in the subprogram. 


2. The function subprogram can contain any FORTRAN 
statement except: 


@ a SUBROUTINE statement 
@ another FUNCTION statement 
@ a DEFINE FILE statement 
@ aPROGRAM statement 

3. If an IMPLICIT statement is used In a function sub- 
program, it must immediately follow the FUNCTION 
statement. 

4. The name of the function must be assigned a vaiue at 


least once in the subprogram—as: 


® the variable name to the left of the eque! sign in an 
arithmetic statement 


® an argument of a CALL. statement 


@ anexternal function reference tat is assigned u 
value by a subroutine referred 10 


@ an item ina list of a RZAD statemen® in the 
subprogram 
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5. The dummy arguments in a function subprogram 
cannot be redefined (that is, cannot appear to the 
left of an equal sign). 


6. The number of dummy arguments in a FUNCTION 
statement cannot exceed 25. 

Example: 

The relationship between variable names used as arguments 

in the calling program and the dummy variables used as 

arguments in the function subprogram is illustrated in the 


following example: 


Calling Program Function Subprogram 


FUNCTION CALC(A,B,J) 


ANS=ROOT1* 


CALC(X,Y,1) 
: l=J*2 
CALC=A*+*1/B 
RETURN 
END 


In this example, the values of X, Y, and | are used in the 
FUNCTION subprogram as the values of A, B, and J 
respectively. The value of CALC is computed, and this 
value is returned to the calling program where the value of 
ANS is computed. The variable | in the argument list of 
CALC in the calling program is not the same as the variable 
| appearing in the subprogram. 


Calling Program Function Subprogram 
INTEGER*2 CALC INTEGER FUNCTION CALC+« 
2(1,5,K) 
ANS=ROOT1»* CALC=I+J+K **2 
CALC(N,M,L) 
RETURN 
END 


The function subprogram, CALC, is declared as type 
INTEGER of length 2. 
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SUBROUTINE SUBPROGRAMS 

The general form of the SUBROUTINE statement is: 
SUBROUTINE name (a; ,a2,a3,.. - ,an) 

where 


name is the SUBROUTINE name, consisting of itom one 
to six alphabetic or numeric characters, the first of which 
must be alphabetic but not $. 


a is a distinct dummy argument (that is, it can appear 
only once within the statement). There need not be any 
arguments, in which case, the parentheses must be 
omitted. Each argument used must be a variable or array 
name or the dummy name of another subroutine or 
function subprogram. 


Uses: The subroutine subprogram is similar to the function 
subprogram in many respects. The rules for naming func- 
tion and subroutine subprograms are similar. They both 
require a RETURN and an END statement, and they both 
contain the same sort of dummy arguments. Like the 
function subprogram, the subroutine subprogram is a set of 
commonly used computations, but unlike the function 
subprogram, it need not return any results to the calling 
program. The subroutine subprogram is referred to by the 
CALL statement. 


Considerations/Restrictions: 


1. The SUBROUTINE statement must be the first 
statement in the subprogram. The subroutine sub- 
program can contain any FORTRAN statement 
except a FUNCTION statement, another SUBROU- 
TINE statement, a DEFINE FILE statement, or a 
PROGRAM statement. If an IMPLICIT statement 
is used in a subroutine subprogram, it must 
immediately follow the SUBROUTINE statement. 


2: The subroutine subprogram can use one or more of 
its arguments to return values to the calling program. 
An argument so used appears on the left side of an 
arithmetic assignment statement, in the list of a 
READ statement within the subprogram, or as an 
argument in a CALL statement or function 
reference that is assigned a value by the subroutine 
referred to. The subroutine name must not appear 
in any other statement in the subroutine subprogram. 


3. The dummy arguments (a, ,a2,4a3, -. . ,an) are con- 
sidered dummy names that are replaced at the time of 
execution by the actual arguments supplied in the 
CALL statement. Additional information about 
dummy arguments is in the section Dummy Argu- 
ments in a Function or Subroutine Subprogram. 


4. Each distinct dummy argument (a) can appear only 
once in the list of arguments and the number of 
dummy arguments cannot exceed 25. 


5. If there are no dummy arguments, the parentheses 
must be omitted. 


6. A subroutine subprogram must contain an END 
statement and at least one RETURN statement. 


7. Because the subprogram is a separate program unit, 
there is no conflict if the variable names and statement 
numbers within it are the same as those in other 
program units. 


Examples: 


SUBROUTINE COPY (A,B,N) 
SUBROUTINE NULL 


CALL Statement 


The CALL statement is used to call a subroutine 
subprogram. 


The general form of the CALL statement is: 
CALL name (a; 42,43, -.- an) 

where 
name is the name of a subroutine subprogram. 


Each a is an actual argument that is being supplied to 
the subroutine subprogram. The argument can be a 
variable, array element, array name, constant, arithmetic 
expression, or subprogram name. 


Uses: The CALL statement transfers control to a subrou- 
tine subprogram. The CALL statement associates the 
dummy arguments named in the SUBROUTINE statement 
with the value of the actual arguments in the CALL state- 
ment. 


Considerations/Restrictions: 


1. The arguments cannot be constants or expressions if 
the subprogram changes their value. 


2. There cannot be more than 25 arguments in a CALL 
statement. 


Examples: 


CALL OUT 

CALL MATMPY(X,5,40.Y,7,2} 

CALL ODRTIC(X,Y,Z,ROOT7,ROOT2) 
CALL SUB1(X+Y *5,ABDF,SINE) 


The CALL statement transfers contral to the subroutine 
subprogram, and associates the dummy variables with the 
value of the actual arguments that appear in the CALL 
statement. 


Example: 


Calling Program Subroutine Subprogram 


DIMENSION 
X(100), ¥ (100) 
: SUBROUTINE COPY(A,B,N} 
DIMENSION A{100),8{100) 
. DO 1041)<1,N 
CALL COPY 10 Bilj=AU) 
(X. Y,100) 
7 RETURN 
. END 
The preceding example shows the relationship neuveen 
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RETURN STATEMENT 

The general form of the RETURN statement is: 
RETURN 

Uses: This statement is used to exit from a function or 


subroutine subprogram. It signifies the conclusion of a 
series of computations. The subprogram transmits 


argument values and ‘eturns control to the calling program. 


Considerations/Restrictions: 


1. There can be several RETURN statements in a sub- 
program. 


2. The RETURN statement cannot appear in a main 
program. 


Example: 


FUNCTION DAV(D,E,F) 
iF (D-E)10,20,30 
10 A=D+2.0*E 


. 


5 A=F+2.0+*E 


. 


20 DAV=A+D««2 


RETURN 
30 DAV=D+**2 


RETURN 
END 


If the result of (D-E) is negative or zero, the first RETURN 
statement is executed. If the result is positive, the second 
RETURN is executed. 


DUMMY ARGUMENTS IN A FUNCTION OR SUBROU- 
TINE SUBPROGRAM 


The dummy arguments of a subprogram appear after the 
function or subroutine name and are enclosed in parentheses. 
They are associated at the time of execution with the 

actual arguments supplied in the CALL statement or 
function reference in the calling program. 


The dummy arguments must correspond in numbc., order, 
and type to the actual arguments. For example, if an 
actual argument is an integer constant, then the correspond- 
ing dummy argument must be an integer variable of length 
4. if a dummy argument is an array, the corresponding 
actual argument must be (1) an array, or (2) an array ele- 
ment. In the first instance, the size of the dummy array 
must not exceed the size of the actual array. In the second, 
the size of the dummy array must not exceed the size of 
that portion of the actual array that follows and includes 
the designated element. 


The actual arguments can be: 


@ An arithmetic constant 


Any type of variable or array element 


Any type of array name 
® Any type of arithmetic expression 
@ The name of a function or subroutine subprogram 


An actual argument that is the name of a subprogram must 
be identified by an EXTERNAL statement in the calling 
program unit containing that name. Hexadecimal constants 
cannot be actual arguments. 


A dummy argument is an array when an appropriate 
DIMENSION or explicit specification statement appears in 
the subprogram. None of the dummy arguments can 
appear in an EQUIVALENCE, COMMON, or GLOBAL 
statement. 


Dummy arguments or common or global elements cannot 
be assigned new values in a function subprogram. Ifa 
dummy argument is assigned a value in a subroutine sub- 
program, the corresponding actual argument must be a 
variable, an array element, or an array. A constant or 
expression should not be written as an actual argument 
unless the programmer is certain that the corresponding 
dummy argument is not assigned a value in the subprogram. 


A referenced subroutine cannot assign new values to dummy 
arguments that are associated with other dummy arguments 
within the subroutine or with variables in common or global 
areas. For example, if the subroutine DERIV is defined as 


SUBROUTINE DERIV (X, Y, Z) 
COMMON W 


and if the following statements are included in the calling 
program 


COMMON B 


CALL DERIV (A,B,A) 


then X, Y, Z, and W cannot be assigned new values by the 
subroutine DERIV. Dummy arguments X and Z cannot be 
defined because they are both associated with the same 
argument, A; nor dummy argument Y, because it is associa- 
ted with an argument, B, which is in common; nor the 
variable W, because it is also associated with B. 


EXTERNAL STATEMENT 
The general form of the EXTERNAL statement is: 
EXTERNAL a,,a2,43,.--.an 


where 
each a is a name of a subprogram that is passed as an 
argument to other subprograms. 


Uses: The EXTERNAL statement identifies the names of 
subprograms that are passed as arguments to another sub- 
program. 


Considerations/Restrictions: 


1. The EXTERNAL statement is a specification state- 
ment, and must precede statement function definitions 
and all executable statements. 


2. If the name of a FORTRAN-supplied intrinsic func- 
tion is used in an EXTERNAL statement, the func- 
tion from the System/3 FORTRAN library is not 
used when it appears as a function reference. !nstead, 
it is assumed that the function is supplied by the user. 


Examples: 


The name of any subprogram that is passed as an argument 
to another subprogram must appear in an EXTERNAL 
statement in the calling program. For example, assume that 
SUB is a subroutine subprogram and MULT is a function 
subprogram in the following statements: 


Calling Program Subprogram 


EXTERNAL MULT SUBROUTINE SUB(K,M,Z) 


. IF (K)4,6,6 
. 4 D=M(K,Z**2) 
CALL SUB(J,MULT,C) 
6 RETURN 
END 


in this example, the subprogram name MUL js used as an 
argument in the subprogram SUB. The subprogram same 
MULT is passed to the dummy variable M as are the varia- 
bles J and C passed to the dummy variables K arid 2, res- 
pectively. The subprogram MULT, is executed only if the 
value of K is negative. 
Calling Program Subprogram 
SUBROUTINE SUBW,X, 
. M,N} 
CALL SUB(A,B, 
MULT{C,D),37) . 
. RETURN 
END 


In this example, an EXTERNAL statement i not reqaaren 
because the subprogram named MAUL fois mot ur argument 
it is executed first and the resuly becaimes ihe argument 





Sukprograms AS. 


AUTOMATIC FUNCTION SELECTION 


The automatic function selection facility allows you to use 
a single generic name when requesting a FORTRAN- 
supplied function that has several names depending on 
argument type. The proper function is selected by the 
FORTRAN compiler, based on the type of the argument(s) 
of the function. 


With this facility you can, for example, use the generic 
name, Sil, to refer to any sine routine, rather than expli- 
citly calling SIN for REAL*4 arguments and DSIN for 
REAL*«8 arguments. The facility is requested by including 
the GENERIC statement in each executable program unit 
in which it is to be used. 


GENERIC Statement 
The general form of the GENERIC statement is: 


GENERIC 


Uses: The GENERIC statement indicates that for FOR- 
TRAN-supplied functions having several names depending 
on argument type, the correct function is to be selected by 
the FORTRAN compiler. 


The use of the GENERIC statement declares the set of 
names in the first column of Figure 4 to be generic. Specific 
built-in and library function names can be interspersed 

with generic names in the same program unit. 


Considerations/Restriciions: 


1. As a specification statement, GENERIC must precede 
statement function definitions and all executable 
program statements, and must follow any PROGRAM, 
FUNCTION, SUBROUTIINE, or IMPLICIT statement. 


2. The use of a generic name in an explicit type state- 
ment overrides its definition as generic, because 
generic names have no type. If the generic name of 
an intrinsic function appears in an EXTERNAL 
statement, its definition as generic is also overridden, 
because it is thereby considered an external procedure. 
(The intrinsic functions are underlined in the first 
column of Figure 4.) A generic name that does not 
coincide with an intrinsic function name can appear 
in an EXTERNAL statement and stil! be considered 
generic. 


3. Generic names cannot be passed as arguments to 
external procedures. The automatic function selec- 
tion facility will not substitute the appropriate 
function for the generic name in an argument list 
when the generic name is used without arguments. 


Note: There is no way to make such a selection, be- 
cause the name being passed as an argument has no 
arguments of its own. Thus, a function name is spec- 
ific for use as an argument, even if the same name is 
generic for use as a function reference. 


Example: 


GENERIC 
EXTERNAL COS 
REAL+«8A,B,C,D 
C=COS(A) 
D=DCOS(B) 
CALL SUB(COS) 


Because automatic function selection is invoked, the 
function DCOS is called to calculate the value of C and D. 
The specific name COS is passed to the subroutine SUB. 
Because COS is not an intrinsic function name, it can be 
used in an EXTERNAL statement and still be used as a 
generic name. 


Page of SC28-6874-3 
issued 29 September 1978 
By TNL: SN21-5634 






























Generic 
Function Specific Function Name By Type 
Name and Length of Arguments Permissible Function Value 


(intrinsic 
function) INTEGER«4 REAL+«4 REAL«8 








ABS(1) IABS DABS Arg®: 
AINT(1) Real 
ATAN DATAN Real 
cos(1) DCcOS Arg 
DIM(2) IDIM Arg 
EXP(1) DEXP Arg 
INT(1) IDINT Integer 


LOG(1) DLOG Arg 
LOG10(1) ALOG10 DLOG10 Real 
=ALOG10M 

MAX (>2) MAXO AMAX1 DMAX1 Arg 
=MAx © 

MIN (>2) MINO AMIN1 DMIN1 Arg 
=MIN©® 

MOD(2) MOD AMOD DMOD 

SIGN (2) ISIGN SIGN DSIGN 

SIN(1) SIN DSIN 

SORT(1) SORT DSORT 


TANH (1) TANH DTANH 








@) The function name is an alias. The functions in the left column are aliases for those in the right column. They are 
aliases both when GENERIC is specified and when it is not. 


Alias Function 


LOG ALOG 
LOG10 ALOG10 
MAX MAXO 
MIN MINO 


@) IFIX performs the same function as INT, and is shown as a member of the GENERIC family INT. 
@ The abbreviation arg is used to indicate that the type and/or length of the function value is the same as the argument. 


Parentheses, (), indicate the number of arguments. 


Figure 4. Generic Functions 
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System/3 FORTRAN IV provides a means of loading and 
executing main programs successively. Each program can 
share a common storage area that is not overlaid when the 
next program is invoked. 


Interprogram communication enables you to avoid the 
impasse that results when the main storage available for a 
FORTRAN job is insufficient for the data and object code 
required to process it. It also allows for more efficient 
execution of programs, that because of their complexity, 
require calls to numerous subroutines. 


Interprogram communication is provided by three System/3 
FORTRAN statements—PROGRAM, INVOKE, and 
GLOBAL. The PROGRAM statement assigns a user name 
to a main program that is called (loaded into main storage) 
with the INVOKE statement. The GLOBAL statement 
specifies a storage area (and the variables and arrays it 
contains) that will not be overlaid when the invoked pro- 
gram is loaded. 


The following situation illustrates the usefulness of inter- 
program communication. 


Assume that 16,000 bytes of main storage is available for 
use by a FORTRAN program. This program must read a 
large amount of data, process it, and write it out. Assume 
that the data requires 10,000 bytes of storage, leaving 
6,000 bytes for object code which includes routines for 
reading, processing, and writing. If each of these three 
steps required the full amount of storage available (6,000 
bytes), the program could not be executed even if it were 
divided into a main program and two subroutines (because 
a subroutine does not overlay the program that calls it). The 
minimum amount of storage required for processing code 
would still be 12,000 bytes. 


However, with the INVOKE and GLOBAL statements, the 
Program could be divided into three main programs of 
6,000 bytes each, with the 10,000-byte data area designated 
as global. When the first main program is through with its 
processing, it invokes the second program, which overlays 
the first (occupies the same 6,000 bytes of storage). The 
10,000 bytes of data in the global area is not destroyed. 
When the second program is through processing, it, in turn, 
invokes the third program. 


Chapter 9. Interprogram Communication 


PROGRAM STATEMENT 

The general form of the PROGRAM statement is: 
PROGRAM name 

where name is the name of the main program. The name 


consists of from one to six alphabetic or numeric characters 
the first of which must be alphabetic, but not $. 


, 


Uses: The PROGRAM statement assigns a name to a main 

program. 

Considerations/Restrictions: 

1. The PROGRAM statement must be specified if 
another program calls the main program using the 
INVOKE statement. 

2. The PROGRAM statement must be specified if the 
program Is to be compiled, link-edited, and stored 


on a disk pack (for execution at a later time). 


3. A PROGRAM statement, if present, must be the first 
statement in a main program. 


4. A PROGRAM statement cannot be used in a sub- 
program. 

Examples: 
PROGRAM PROG3 
PROGRAM COST 

INVOKE STATEMENT 

The general form of the INVOKE statement is: 
INVOKE name 


where name is the name of a main program specified in a 
PROGRAM statement. 
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Uses: The INVOKE statement causes the named program 
to overlay the invoking program and receive control. A 
program that is invoked begins execution at its first exe- 
cutable instruction. 


Considerations/Restrictions: 


1. The INVOKE statement can appear in a main program 
or a subprogram. 


2. When using the INVOKE statement on a non-DPF 
system, the program being invoked must not be 
larger than the amount of user main storage. When 
using the INVOKE statement on a DPF or multi- 
programming system, the program being invoked 
must not be larger than the program that was initially 
loaded into main storage (the program specified on 
the LOAD statement). Also, the invoked program 
cannot be larger than the program level or partition 
size when using a PARTITION statement. 


The CORE statement can be included in the program 
initially loaded into main storage to specify the size 
of the largest program to be invoked (refer to CORE 
Compiler Option Statement). 


3. The program being invoked and the invoking program 
must reside in the object library on the same drive. 


4, When the invoking program and the program being 
invoked are both reading cards from the MFCU1 on 
the Model 10 or any card input device on the Model 
15, that device should be single buffered. If the 
device is double buffered, a data record will be lost 
when the program is invoked. 


5. lf an invoking program uses a sequential disk file, 


a following invoked program must refer to that 
file by the same Jogical unit number. 


Examples: 
PROGRAM FIRST PROGRAM SECOND 


INVOKE SECOND 


GLOBAL STATEMENT 
The general form of the GLOBAL statement is: 
GLOBAL ay (ky )a (ky ), tao n(ky) 


where a is the name of a variable or array. k is an optional 
subscript composed of from one to three unsigned integer 
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constants separated by commas, representing the maximum 
value of each subscript in the array. 


Uses: The GLOBAL statement provides the sharing of a 
main storage area, (and the variables and arrays contained 
in it) by two or more main programs. It is like a COMMON 
statement except that it can be used to communicate 
between two or more main programs in addition to program 
units in the same program. 


Considerations/Restrictions: 


1. The GLOBAL statement can appear in a main program 
or asubprogram. A program unit can contain any 
number of GLOBAL statements. All entries in these 
statements are strung together in the order of their 
specification. An entry cannot be specified more 
than once in a GLOBAL statement, in more than one 
GLOBAL statement, or in both a GLOBAL and 
COMMON statement. 


2. The global data area is for interprogram communica- 
tion, although a main program may share a globa! 
data area with a subprogram. The /oca/ COMMON 
statement can still be used for this intraprogram 
communication. 


3. Rules regarding the use of equivalence are the same 
for a global data area as for a common data area. 
Specifically, the EQUIVALENCE statement cannot 
be used to extend the size of the global area by 
adding elements before the beginning of the global 
block. In addition, a variable or array cannot be 
associated by equivalence to a global variable, array, 
or array element if the variable or array so associated 
is itself in a global or common block. 


Example: 


PROGRAM SECOND 
GLOBAL X,Y,2(25), 


PROGRAM FIRST 
GLOBAL A,B,C(5,5), 


(10,1000) DATA(10,1000) 
. STOP 

INVOKE SECOND END 

END 


The debug facility is a programming aid that enables you 
to locaie errors i. a FORTRAN source program. The debug 
facility traces the flow within a program, traces the flow 
between programs, and checks the validity of subscripts. 


The debug facility consists of a DEBUG statement, an AT 

debug packet idenvifreation statemerit, and two executable 
statements. These siatements specify the debugging opera- 
tions for a singie Program unit in source language. (A pro- 
grarn unit is @ single ain program or a subprogram.} 


The source deck urrangement consists of the source 
language statements that constitute the program, followed 
by the DEBUG specifiration statement, followed by the 
debug packets, followed by the END statement. 


The statements that make up a program debugging opera- 
tion must be grouped in one or more debug packets. A 
debug packet consists of an AT statement followed by a 
TRACE ON or TRACE OFF statement. 


DEBUG STATEMENT 
The general form of the DEBUG statement is: 


DEBUG option, ... ,option 


where option can be any of the following: 


SUBCHK {ny ora, - tig) 
where nis an array name, The validity of the sub- 
scripts used with the named arrays is checked by com- 
paring the subscript combination with the size of the 
array. If the subscript exceeds its dimension bounds, 
a message ts placed in the debug output file. Program 
execution continues, using the incorrect subscript. If 
the list of array names is omitted, all arrays in the 
program are checked for valid subscript usage. If the 
entire option is omitted, no arrays are checked for 
valid subscripts 


When subscript checking occurs, only two bytes of 
the subscript are examined. If an INTEGER+4 value 
is used as a subscript, the leftrnost two bytes of the 
subscript value are ignored. 


SUBCHK cannot be applied to a dummy array. 
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TRACE 
This option must be in the DEBUG statement of 
each program or subprogram for which tracing is 
requested. If this option is omitted, there is no dis- 
play of program flow by statement number within 
this program. Even when this option is used, a 
TRACE ON statement must appear in the first debug 
packet in which tracing is requested. 


INIT(m,,m,,...,My)} 
where m ts the name of a variable or an array that is 
displayed in the debug output file only when the 
variable or the array values change. 


If m is a variable name, the name and value are dis- 
played whenever the variable is assigned a new value 
in either an assignment or a READ statement. 


If m is an array name, the changed element is dis- 
played. If the list of names is omitted, a display 
occurs whenever the value of a variable or an array 
element is changed. 


If the entire option is omitted, no display occurs 
when values change. 


INIT cannot be applied to a dummy variable. 


SUBTRACE 
This option specifies that the name of this subprogram 
is displayed whenever it is entered. The message, 
RETURN, is displayed whenever execution of the 
subprogram is completed. 


Uses: The DEBUG statement sets the conditions for opera- 


tion of the debug facility and designates debugging opera- 
tions that apply to the entire program unit. 
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Considerations/Restrictions: 


1. There must be one, and oniy one, DEBUG staternent 
for each program or subprogram to be debuyged;: it 
must follow the iast executable statement (such as 


STOP or RETURN). The debug veskets must immedi- 


ately follow the DEBUG statement. 


2 The options ina DEBUG statement can be given only 
once, can apprar in any order, and must be separated 
by corrrnas. 

3. Output from a debug operation is directed to the 


FORTRAN error logging dev:ce. (See PRINT and 
NOPRINTER Device Option Statements in Chapter 
13 for more ti: formation.} 


AT STATEMENT 

The general form of the AT statement is: 
AT n 

where 


nis the statement number of an executable statement 
in the program or subprogram to be debugged. 


Uses: The AT sta’-ment identifies the beginning of a 
debug packet and indicates the statement number in the 
program unit where statement tracing is to begin or end. 


Considerations/Restrictions: 
1. There rnust be one AT statement for each debug 


packet. (Triere can be many debug packets for one 
program or subprogram.} 


NO 


The TRACE option must be specified in the DEBUG 
staternent if AT is specified. 


3. A TRACE ON staternent or TRACE OFF statement 
must follow the AT statement. 


Example: 


200 X= Yt Z 


DEBUG TRACE 
Ai 200 
TRACE ON 
END 
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TRACE ON STATEMENT 
The general form of the TRACE ON statement is: 


TRACE ON 


Uses: The TRACE ON statement initiates the display of 
program flow beginning at the statement number indicaied 
by the AT statement. Each time a statement tha ..as a 
statement number is executed, the statement number is 
printed out on the debug output file. 


Considerations/Restrictions: 
1. For the TRACE ON statement to be valid, the 
TRACE option must be specified in the DEBUG 


statement. 


2. Tracing begins inimediately before the execution of 
the statement specified in the AT statement. 


3: The TRACE ON statement stays in effect through 
any level of subprogram call or return. However, if 
a TRACE ON statement is in effect and control is 
given to a program in which the TRACE option was 
not specified, the statement numbers in that program 
are not traced. 

Example: 


200 X=¥+Z 


DEBUG TRACE 
AT 200 

TRACE ON 
END 


TRACE OFF 

The general form of the TRACE OFF statement is: 
TRACE OFF 

Uses: The TRACE OFF statement stops the display of 


program flow beginning at the statement number indicated 
by the AT statement. 


Considerations/Restrictions: For this statement to be 
valid, the TRACE option must be specified in the DEBUG 
statement, 


Example: 


206 X=VYiZ 


210 X=Y-2 


DEBUG TRACE 
AT 200 
TRACE ON 

AT 210 
TRACE OFF 
END 


EXAMPLES OF THE DEBUG FACILITY 


Example ?: 


DIMENSION STOCK (1000), OUT (1000) 


DO 30 |=1,1000 


25 STOCK (1)=STOCK(1)-OUT (1) 
30 CONTINUE 


35 A=B+C 


DEBUG SUBCHK(STOCK),INIT(STOCK) 
END 


All of the invalid subscripts processed in STOCK, and all 
of the values of STOCK are to be displayed. 


Example 2: 
10 A=1.5 
12 L=1 
15 B=A+1.5 
20 DO 221=1,5 
22 CONTINUE 
25 C=B+3.16 
30 D=C/2 


STOP 


DEBUG TRACE 

Cc DEBUG PACKET NUMBER 1 
AT 10 
TRACE ON 

Cc DEBUG PACKET NUMBER 2 
AT 20 
TRACE OFF 

Cc DEBUG PACKET NUMBER 3 
AT 30 
TRACE ON 
END 


When statement 10 is encountered in the preceding example, 
tracing begins as indicated by debug packet 1. When state- 
ment 20 is encountered, tracing stops as indicated by the 
TRACE OFF statement in debug packet 2. When state- 
ment 30 is encountered, debug packet 3 tracing begins 
again. 


In this example, trace output is produced for statement 


numbers 10, 12 15, and 30. No debug output is produced 
for statement numbers 20, 22, and 25. 
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Chapter 11. Examples of FORTRAN Programs 


SAMPLE PROGRAM 1 


This sample program (Figure 5} is designed to find all of 
the orime numbers between 2 and 1000. A prime number 
is an integer greater than 1 ihat cannot be evenly divided 
by any integer except itself and 7. Thus 2,3,5,7,11, 

_are prime numbers. The number 9 is not a prime 
number because it can be evenly divided by 3. 
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Figure 5. Sample Program 1 
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SAMPLE PROGRAM 2 


The n points (x;, yj) are to be used to fit an m degree poly- 


nomial by the least-squares method. 


VY =a tayx ta,x? + ...tamx™ 


In order to obtain the coefficients ay, a,,..., am, It is 
necessary to solve the normal equations: 


(1) Woao + Wa, +...+Wmam = Zo 
(2) Wa, + W2a, +...t¢Woytiam = 2: 


(m+1)) WyatWytyay +...+ Womam = Zm 


where: n 
Woy =n Z ->) Vi 
i=] 
n n 


i=1 i=1 
n 
2m= ) yixim 
i=1 
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After the Ws and Zs are computed, the normal equations 
are solved by the method of elimination, which is illustrated 
by the following solution of the normal equations for a 
second degree polynomial (m = 2}. 


(1) Woao + Wa, + W2a2 =Lo 

(2) Wao + W2a, + W3a2 = 2) 

(3) Wa, + Wa; + Wa ay =2Z, 
The forward solution is as follows: 


1. Divide equation (1) by Wo 


2. Multiply the equation resulting from step 1 by W, 
and subtract from equation (2) 


3. Multiply the equation resulting from step 1 by W, 
and subtract from equation (3) 


The resulting equations are: 


(4) ag + by 2a, + by3a2 =byq 
(5) by 2a, + b23a2 =beq 
(6) b32a, + b33a = b34 
where: 
biz =~ Wi Wo, bi3 = W2/Wo, big = Zo/Wo 


by 2 =W2-bi2W; , b23 =W3-bi3Wi, bog = Z,-bigW, 
b37 = W3~-b,2W2 , b33 =Wa4-bi3W2, bq = Z,-b, 4W, 


Steps 1 and 2 are repeated using equations (5) and (6), 
with b2 > and b3 instead of Wy and W,. The resulting 
equations are: 


(7) ay + C342 = Coq 
(8) C3342 = C34 
where: 


C23 = b23/b22 C24 = b2q/b22 
C33 = b33-C23b32 , C3q = b34-C24b32 


The backward solution is as follows: 


from equation (8) 
from equation (7) 


(9) a2 = C34 /C33 
(10) a, = Cz 4-C€2342 


(11) ag = by 4-b)2a;-by3a, ~— from equation (4) 


Figure 6 is a sampir FORTEAN program for carrying out 


the calculations for the casa: 
\ 
Wo, . 


1= 100, 05 <10. Wo, Wy, 
Wy sie stored in wet), W(2}, W(3}, 


W(2M +1), respectively, Z., 





zy, 


Pont 


, Jy are acaiea in 


ZA1), 2(2), Z(3), ... 


ZA(MiT), respectively. 
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The elements of the W array, except W(1), are set equal to 
zero, W(i} is set equal to N. For each value of |, Xi and 
Y¥, are selected. The powers of X; are computed and 
accumulated in the correct W counters. The powers of X; 
are multiplied by Yj) and the products are accumulated in 
the correct Z eounters. In order io save machine time 
when the ohject program is being run, the previously com- 
puted power of X; is used when computing the next power 
of X;. Note that the use of variables as index Darameters. 
By the tirpe control has passed! to statement 17, the counters 
are set a8 follows: 


N 
Wa) = oN zit) > Y, 
$=] 
NM N 
~~ 
w(2) po x, 22) = SOx 
dhewcoanl 
re] i=1 
N N 
“a 
WAS: = v Xx," 2(3) ) YX)? 
Luan 
=] {=] 
N 
Z(Mii) = > aoe 
N i=] 


= 
wiamery = S xe 
ya) 


a 


By the time control passes to statement 23, the values of 
Wo,Wy,.. 
corresponding to columns 1 through M+1, row 1 through 
M+1, of the B array, and the values of 2,,2Z;,..., Zm 
have been stored in the locations corresponding to the 
column M+2 of the B array. For example, in the illustrative 
problem (M = 2), columns 1 through 4, rows 1 through 3, 
of the B array would be set to the following computed 
values: 


., Wam+] are placed in the storage locations 


Wo W, W, Zo 
Wy W, W3 2, 
Ws W, Wa 2, 


This matrix represents equations (1), (2), and (3), the 
normal equations for M=2, 


‘The forward solution, which results in equations (4), (7), 
and (8), is carried out by statements 23 through 31. By 
the time control passes to statement 33, the coefficients of 
the Al terms in the M+1 equations, which would be ob- 
tained in manual calculations, have replaced the contents 
of the locations corresponding to columns 1 through M+1, 
rows 1 through M+1, of the B array, and the constants on 
the right-hand side of the equations have replaced the con- 
tents of the locations corresponding to column M+2, rows 
1 through M+1, of the B array. Columns 1 through 4, rows 
i through 3, of the B array are set to the following com- 
puted values: 


1 biz Dia bi4 
0 1 C23 C24 
0 0 C33 C34 


This matrix represents equations (4), (7), and (8). 


The backward solution, which results in equations (9), (10), 
and (11), is carried out by statements 33 through 40. By 
the time control passes to statement 41, which prints the 
values of the A(I}) terms, the M+1 values of the A(I) terms 
are stored in the M+1 locations for the A array. The A 
array wouid contain the following computed values for a,, 
a,, and ay, respectively: 


Location Contents 

A(3) €34/C33 

A(2) C24 ~C2 342 

A(1) by 4 ~b, 24, ~b; 342 


The resulting vaiues of the A(!) terms are then printed 
according to the FORMAT statement number 2. 
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Part 2. System/3 FORTRAN IV User's Guide 


This section contains: 

@ Overview of FORTRAN processing 
@ Compilation 

@ Linkage editor processing 

@ Load module execution 


@ Job output 
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A FORTRAN program is processed by the FORTRAN 
compiler under control of the IBM Sysiem/3 System Con- 
trol Programs. The FORTRAN compiler is @ program that 
translates FORTRAN statements into instructions that can 
be understood and execuied by the System/3. The system 
contro! pragram is a program that controls the operation 
of the System/3. 


For you to make the best use af Systen/3, you must know 
how to well the System Control Program about your FOR. 
TRAN program, how to define FORTRAN Tiles, and what 
kind cf output to expect. This witroductory section sum- 
matizes basic information you need in order to use System/ 
3. Tris section briefly describes: 


1. How a FORTRAN program is niccessed. 
2». Coramunicating with Sysiem/3 through operation 


control language (OCL). 
3. Program output. 


4, Defining FORTRAN files and other files needed by 
System /3. 


HOW A FORTRAN PROGRAM !S PROCESSED 


Before your FORTRAN program can be executed, it oust 
be converted into a form that can be understood by 
System/3. The compiler converts the program. The linkage 
editor combines the programm with whatever other programs 
ate required to form an execitable unit. For example, if 
your program uses the SORT hbrary function, the tinkage 
editor retrieves SORT frani the FORTRAN library of sub- 
programs and joins it with your program. 


Chapter 12. Overview Of FORTRAN Processing 


The three steps that must be taken to convert and execute 
a FORTRAN program are compilation, link-editing, and 
load module execution. The FORTRAN source program 
is the input to the compilation step. The output is the 
group of trarislated statements, called an object module, 
which becomes the input to the link-edit step. (Other 
terms used to describe the object module are routine and 
nonexecutable object program; we use the term object 
module throughout this publication.) The output of the 
iink-editing step is the object module combined with other 
modules to form a load module, or object program (we use 
the term load module). The load module is the program 
executed in the load module execution step. 


Although these three steps must be taken in sequence to 
execute a program, it is not necessary that they occur at 
one time. For example, you can choose the compilation 
step only, with the other steps to follow at a later time. 
Assume that you have coded a particularly complex FOR- 
TRAN program. The first time you submit it, you might 
only compile it, so that you can correct any source program 
errors. The compiler examines each FORTRAN statement 
for correct syntax and issues error messages for FORTRAN 
language violations. After correcting these errors you 
could have the program compiled, link-edited, and executed 
at one time. Further assume that you intend to use the 
program many times. Once the program is successfully 
compiled, it would be pointless for you to compile it every 
time you use it. You could choose to store the compiled 
object module in a file of object modules, called an object 
library. Then, each time you want to execute the program, 
you could tefl the System/3 to bypass the compile step 
and use the object module as its input. These are some of 
the alternatives you have when executing your program. 
You tell the system which alternatives to select through 
use of the operation contro! language statements. 
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Using FORTRAN consists of the general operations illus- 
trated in Figure 7: 
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Define the job. The programmer defines the job re- 

quirements for the specific task. Usually, the follow- 

ing questions must be answered when the job is 

defined: 

a. What information is provided as input to the 
program? 

b. What calculations are to be performed? 

c. What output information should be generated by 
the program? 


Write the source program. After the programmer de- 
fines the job, he or she develops the FORTRAN 
source program. 


Record the source statements on disk or cards, After 
the source program is written, it is recorded on 
punched cards or entered into the system from the 
keyboard. 


Compile the source statements. The source program, 
preceded by the required OCL statements, is proces- 
sed by the FORTRAN IV compiler under control of 
the system control program. At the end of this 
processing (compilation), the object program is 
stored as an R module in the object library on disk 
or punched cu cards. This program contains all the 
instructions required to perform the job. 


Link-edit the object program. The object program is 
processed by the Linkage Editor under control of the 
System Control Program. This is done to resolve all 
addresses and external references. At the end of this 
processing (link-editing), the load module is stored 
as an O module in the object library on disk or 
punched on cards. The program is now ready to be 
executed. 


Execute the program. The load module is read from 
disk or cards; then the input and output are processed 
by the system under control of the FORTRAN 
program. 


1. Defiria the job. 


Job Requirements | 
2. Write source program. 


4a. Input 


po. Calculations 
c. Outout 


a 


6. Execute the program. The Disk- 
ioad module is read from 


_ 
/ 


. Link-edit the object program. 


Record source statements cn disk, 
diskette, or cards. 





aaa Storage 


Compiler FORTRAN IV 
. Compile the source statements. compiler on disk. 
The resulting object program is 
recorded on disk, diskette, or 
cards. 


ye 


al 


Main soe 
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Linkage Editor 
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ae 


el 


Input Data Main Storage Output Data 







Load Module 














; 7 Cards ——--______-___~ 
epicure (et Tape 

ne ey en gene Console (Models 10 and 12) Tape 
processed by the system Keyboard (Model 15) Console (Model 10) 
under control of the CRT (Model 15) 
FORTRAN programm. 





Figure 7. Processing a FORTRAN Program 
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USING OPERATION CONTROL LANGUAGE (OCL) 


Operation control language (OCL) is your means of com- 
municating with IBM System/3. You must write a set of 
OCL statements for each program you want to run. OCL 
statements describe the program to the system, which reads 
the set of OCL. statements and runs the program. When the 
program ends, the system reads the next set of OCL state- 
ments, runs the program it describes, and repeats the proce- 
dure until all OCL statements and programs have been run. 


OCL statements that are essential in running a FORTRAN 
program are LOAD, FILE, and RUN. 


A complete description of all OCL statements can be found 
in the applicable system contro/ programming reference 
manuals. Refer to Related Publications for the order 
number. 
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A program submitted for compilation, link-editing, and 
execution might be arranged as foliows: 


// LOAD $FORT,F1 

// FtLE NAME-$WORK ... 
// FILE NAME-$SOURCE... 
// RUN 

*PROCESS LINK 

FORTRAN source program 
/* 

// LOAD ABC,F1 

// FILE (statement for load module, if any) 
// RUN 

Input data cards, if any 

/* 


Some OCL statements are used on a recurring basis, such as 
the LOAD $FORT and the FILE statements for $WORK 
and $SOURCE. To avoid recoding these statements every 
time they are to be used, they can be stored as sets in a 
source library. These sets are called procedures. A com- 
plete discussion of procedures can be found in the previous- 
ly mentioned reference manuals. 


IBM System/3 FORTRAN-Supplied Procedures 


{BM supplies a number of procedures for use with System/3 
FORTRAN. Figure 8 describes the procedures used for 
compiling, link-editing, and executing FORTRAN programs. 


Note: The Model 15 also allows $WORK and $SOURCE 
files on 5445 or 3340 Disk Storage. The user must change 
the procedures if he wants to use 5445 or 3340 for 
$WORK and $SOURCE. See Optimum Assignment of 
SWORK and $SOURCE Work Files in Chapter 20, 

System Considerations. 
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Libraries 


Each disk can contain a source library and an object library. 
Although both libraries can be located anywhere on a disk, 
the source library always immediately precedes the object 
library. 


The source library is an area for storing OCL procedures 
and FORTRAN source programs. OCL procedures or 
programs are added to a source library using the Library 
Maintenance utility program. Programs may be compiled 
from the source library by using the COMPILE 
statement. (Refer to the description of the COMPILE 
statement in the applicable system control programming 
reference manual.) (Utility programs are described in 
the applicable system control programming reference 
manual. Refer to Related Publications for the order 
number.) 


The object library is an area for storing object modules and 
load modules. FORTRAN modules are stored by requesting 
the OBJECT parameter (for an object module) or the LINK 
parameter (for a load module) on the *PROCESS compiler 


option statement, used exclusively in FORTRAN processing. 


This statement is described in greater detail in Chapter 13, 
Compilation. 


COMPILER, LINKAGE EDITOR, AND LOAD MODULE 
OUTPUT 


In addition to object and load modules, the compiler and 
linkage editor produce other forms of output that help 
you analyze the job. The compiler informs you of the 
success of the compilation by issuing messages, including 
a severity code for any error encountered. The severity 
code indicates whether the compilation was entirely or 
partially successful. An unsuccessful compilation results 
in no object module being produced. 


The compiler can also produce output jn the form of a 
storage map that lists the names and storage locations of 
variables and statement numbers in the object module. 


The link-editing step can produce, in addition to a load 
module, a core usage map that shows the location of the 
modules in the load module, a card deck of the object or 
load module, and a cataloged entry of the object or load 
module on disk: 


Load module execution produces the program output that 
you request in the source program. 
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DEFINING FILES 


Files are collections of records, such as an object module, a 
library of subprograms, a source program, or a data card 
deck. 


Files Needed by the Compiler and Linkage Editor 


The compiler needs the file named $WORK to store the 
object module if the linkage editor is called to process any 
of the compiler options DECK, GODECK, OBJECT, or 
LINK. The linkage editor needs the two files named 
$WORK and $SOURCE. 


For information about the assignment of $WORK and 
$SOURCE, see Optimum Assignment of $WORK and 
SSOURCE Work Files in Chapter 20, System Considerations. 


Files Needed by the FORTRAN Load Module 


The FORTRAN load module uses files only if it includes 
input/output statements or calls to any |/O commercial 
subroutines. Commercial subroutines are described in the 
publication /BM System/3 FORTRAN IV Commerical 
Subroutines, SC28-6875. 


Defining FORTRAN Files at Compilation Time 


Device option statements are used to tell the compiler which 
files and devices to use. The compiler uses the information 
in the device option statements to allocate buffer space and 
data management control blocks to the files. The compiler 
sets up a table of logical unit numbers, which contains an 
entry for each device or file that is specified. Up to a max- 
imum of 40 files can be specified at compile time. 


For more information about device option statements, see 
Compiler Option Statements in Chapter 13, Compilation. 


Defining FORTRAN Files at Execution Time 


OCL FILE statements are used to define disk or tape files 
at execution time. As with any FILE statement, you must 
specify the file name, the file size, and the disk or tape unit. 


FORTRAN file names are assigned in the form F Thnnnn 
where nnnnn is the logical unit number that is specified on 
the device option statement. The following shows the rela- 
tionship between the FORTRAN logical unit number and 
file definition: 


FORTRAN Logical File Definition at File Definition at 
Unit Number Compilation Time: Execution Time: 
FORTRAN Device option FILE statement, if file 
input/output statement statement is on disk or tape. 
Examples: 


1. Detining a card file: 
READ(1,100)A // READ DEVICE-MFCU1 None 


2. Defining a disk file: 
DEFINE FILE 15 
(50,25,L,1D) 
WRITE(15’5,100)B // DAD44 UNITNO-15 // FILE NAME-FT00015 


Logical Unit Numbers 


You refer to a file by coding its logical unit number in the 
FORTRAN input/output statement. For example, the 
following READ statement refers to a file having logical 
unit number 5: 


READ (5,f)list 


Logical unit numbers are assigned to System/3 devices used 
in FORTRAN processing. Figure 9 tists these assignments. 
if your program reads input data from a card reader in a 
System/3 Model 10 installation, the logical unit number 
that must be coded in the READ statement is 1 for the 
primary hopper of the MFCU device, 2 for the secondary 
hopper, 5 for the 5471 printer/keyboard, or 9 for the 1442 
card read punch. Each logical unit number can be assigned 
to only one file in a program; for example, if logical unit 
number 1 is used to detine the MFCU1, it cannot be used 
to define a disk file. 


To make the proper link between the logical unit numbers 
in the FORTRAN program and the devices used by 
System/3, you must define your files at compilation time 
and, for tape and disk files, at toad module execution time 
as well. 


Overview of FORTRAN Pracessing 
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Model 10 Installation: 


5424 MFCU primary hopper 
(MFCU1) 


5424 MFCU secondary hopper 


(MFCU2) 
5203 or 1403 printer 
5471 printer/kKeyboard 
54717 printer/keyboard 
1442 card read punch 


3410/3411 magnetic tape 


5444 disk 


544% disk 

Model 6 Installation: 
5406 console keyboard 
5496 data recorder 
5213 or 2222 printer 


5444 disk 


define another device. 


@ Cannot be specified as both an input and output device when using FORTRAN 
READ and WRITE statements. (Can be both an input and output device when 





Read 


Read/punch/print @ 


Print 
Read 
Print 
Read/punch @ 


Read/write sequential formatted 
and unformatted records 


fRead/write sequential and direct- 
aocess formatted and unformatted 
records 


Read/write sequential and direct- 


aecess formatted and unformatted 
records 


Read card images 

Read/punch@ 

Print 

Read/write sequential and direct- 


access formatted and unformatted 
records 


G) Model 10 supports only one file per tape volume. 


@ Can be any number from 1 to 32767 that is not used in the source program to 


using the FORTRAN commercial subroutines.) 


Figure 9 (Part 1 of 3). Logical Unit Number Assignment 





Logicai Unit 
Number 


n@ 


a) 
n@ 








Logical Unit 
Device Function Number 



























Model 12 Installation: 
| 
5424 MFCU primary hopper Read 1 
(MFCU1) 
5424 MFCU secondary hopper Read/punch/print @ 2 
(MFCU2) 
5203 or 1403 printer Print 3 
5471 printer/keyboard Read 5 
5471 printer/keyboard Print 6 
| 
1442 card read punch Read/punch ® 9 
3410/3411 magnetic tape © Read/write sequential formatted n ® 


and unformatted records 





3340 direct access storage Read/write sequential and direct- n @) 
facility access formatted and unformatted 
records 


QQ) Model 12 supports only one file per tape volume. 


@ Can be any number from 1 to 32767 that is not used in the source program to 
define another device. 


@) Cannot be specified as both an input and output device when using FORTRAN 
READ and WRITE statements. (Can be both an input and output device when 
using the FORTRAN commercia! subroutines.) 


Figure 9 (Part 2 of 3). Logical Unit Number Assignment 
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Logical Unit 
Device Function Number 
Model! 15 Installation: 
5424 MFCU primary hopper Read 1 
(MFCU1)© 
5424 MFCU secondary hopper Read/punch/print © 2 
(MFCU2)© 
2560 MFCM primary hopper Read 1 
(meEcM1)O 
2560 MFCM secondary hopper Read/punch/print © 2 
(MFCM2)© 
1403 printer Print 3 
3284 printer Print 4 
3277 display station Read 5 
3277 display station Print 6 
3741 data station or pro- pésa/dunth 7 
grammable work station © 
2501 card reader Read 8 
1442 card read punch Read/punch ® 9 
3410/3411 magnetic tape® Read/write sequential formatted n@ 
and unformatted records 
5444 disk © Read/write sequential and direct n ® 
access formatted and unformatted 
records 
5445 disk 3) Read/write sequential and direct n @ 


access formatted and unformatted 
records 





@) 5424 and 2560 are mutually exclusive. 


@ Can be any number from 1 to 32767 that is not used in the source program to 
define another device. 


@) Cannot be specified as both an input and output device when using FORTRAN 
READ and WRITE statements. (Can be both an input and output device when 
using the FORTRAN commercial subroutines.) 


@) Model 15 supports multifile tape volumes. 


(8) For Model 15, if system configuration has 3340 disk storage, these files will be 
located on the 3340. 


@) Supported on 5704-FO2 only. 


COMPILER OPTION STATEMENTS 


Compiler option statements provide control information to 
the compiler. They follow the OCL RUN statement and 
are interpreted by the initial compiler phase after the OCL 
statements are read. 


Most of the compiler option statements are coded in the 
same manner as OCL statements. Compiler option state- 


ments consist of: 


® Device option statements 


The CORE statement 


The CATEGORY statement 


The «PROCESS statement 


Device option statements are used by the compiler to 
define input/output devices used at execution time. To 
continue these statements, place a comma after each option 
in every card or line except the last option. Begin each new 
card or line with a //in positions 1 and 2. Leave one or 
more blanks between the // and the first option in the card 
or line. 


Example: 


// DAD44 UNITNO-‘10,12,14’, 
// BLOCKSIZE-'256,512,768' 


READ, PRINT, and PUNCH device option statements con- 
tain all the information necessary to make such devices 
available at execution time. Device option statements for 
disk and tape files (SEQ40, SEQ44, SEQ45, DAD40, 
DAD44, DAD45, and TAPE) require corresponding FILE 


statements at execution time to complete the file definition. 


The CORE and CATEGORY statements cannot be con- 
tinued. However, to continue the *~PROCESS statement, 
place acomma after each option in every card or line 
except the last option. Begin each new card or line with a 
nonzero or nonblank character in position 6. 


Example: 


*PROCESS MAP,GOSTMT,DECK, 
1GODECK 


Chapter 13. Compilation 


Compiler option statements can be specified in any order 
except that the *PROCESS statement, if used, must be the 
last card before the FORTRAN source program. The 
*PROCESS statement can be specified for subprograms and 
main programs; the CATEGORY statement for subprograms 
only; and the other statements for main programs only. 


The formats and uses of the compiler option statements are 
identical for all Models. The compiler option statements 
are described in Figure 10. 












Statement Function 





Device option statements: 
// READ Specifies the input device used at execu- 
tion time. 

Specifies the printer(s) used at execution 
time. 

Specifies that no printer is to be used at 
execution time. 

Specifies the card punch used at execu- 
tion time. 


// PRINT 


// NOPRINTER 


// PUNCH 


// DADO @) | 
// DAD44 Specifies direct-access files used at 
// DAD45 @ execution time. 











// SEQ40 @) 


// SEQ44 
1/ SE045 © 







Specifies sequential files used at execu- 
tion time. 















// TAPE © 


Specifies tape files used at execution 
time. 





// CORE Specifies the amount of storage to be 
used by the load module. The linkage 
editor uses this value to create the load 


module. 





// CATEGORY | Specifies a priority permitting a subpro- 


gram to remain in main storage in an 








overlay environment. 








Specifies compiler options. 






*PROCESS 


@ Does not apply to Model 6. 
@ For Model 12 and Model 15 only. 


Note: A maximum of 40 tape and disk files can be 
specified. 


Figure 10. Compiler Option Statements 
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READ Device Option Statement 
The format of this statement is: 


// READ DEVICE-’ device,device, ..., device’, 
RECL-nn@ 


where 
device is any of the following: 
For Modei10—MFCU1, MFCU2, 5471, 1442, MFCU1=. 


For Model 6—5406, 5496. 


For Mode! 12—-MFCU1, MFCU2, 5471, 1442, MFCU1". 


For Model 15—MFCU1, MFCU1*, MFCU2, MFCU2+, 
MFCM1, MFCM1+*, MFCM2, MFCM2«, 3277, 32775, 


1442, 1442+, 2501, 2501*, 37410. 3741 oD 


The asterisk following a device indicates one buffer is 
requested. The default is two buffers. You cannot 
specify both MFCU1, MFCU1* in one program. If this 
occurs by error, MFCU1«(one buffer) overrides MFCU1 
(two buffers). This information applies to all other 
devices that allow the *indication. (See Model 15 
Double Buffering for Card Devices in Chapter 20, 
System Considerations. ) 


The S following 3277 indicates that split screen support 
is requested. (See Mode/ 15 CR T/Keyboard Support in 
Chapter 20.) 


If only one device is selected, the enclosing apostrophes 
can be ornitted. 


RECL-nn specifies the number (nn) of bytes ina logical 


3741 record. This number must be from 1 through 128. 


The parameter must be coded if the 3741 was specified 

as a device. If the parameter is coded and the 3741 is 

not specified, am OPTIONS ERROR will be set. 
Example: 


// READ DEVICE-5471 


The example states that the 5471 will be used as a read 
device. 





| © For 5704-FO2 only. 
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// READ DEVICE-'2501,3741',RECL-96 


This example states that the 2501 and the 3741 wiil be used 
as read devices. Both devices will use two buffers and the 
logical record length for the 3741 is 96 bytes. 


PRINT and NOPRINTER Device Option Statements 
The format of the PRINT statement is: 


// PRINT DEVICE-‘device,device, .. . ,device’ 
where 
device is any of the following: 


For Model 10-5203, 5471, MFCU2, or 1403. If you do 
not use a PRINT or NOPRINTER statement, the 5203 
printer is assumed. The MFCU2 is a card punch and is 
specified on the PRINT device option statement when 
printing is to appear on the card. 


For Model 6—5213 or 2222. The default is the 5213. 


For Model 12--5203, 5471, MFCU2 or 1403. If you do 
not use a PRINT or NOPRINTER statement, the 5203 
printer is assumed. The MFCU2 is a card punch and is 
specified on the PRINT device option statement when 
printing is to appear on the card. 


For Model 15-1403, 1403D, 3284, MFCU2*, MFCU2, 
MFCM2*, MFCM2, 3277, 3277S: 


If you do not use a PRINT or NOPRINTER statement, 
the 1403 printer is assumed. Both the MFCU2 and 
MFCM2 are card punches and are specified on the PRINT 
device option statement when printing is to appear 

on the card. 


The D following 1403 indicates the deferred 
print option. (1403D changes the FORTRAN 
language space before commands to a deferred 
space after command.) 


The asterisk for MFCU2 and MFCM2 indi- 
cates one buffer for that device. (See Model 
15 Double Buffering for Card Devices in 
Chapter 20, System Considerations.) To 
maintain the same performance level, two 
buffers should be used, because MECU2 print 
uses two buffers for Model 10. 


Enclosing apostrophes can be omitted if only one device 
is selected. 


FORTRAN Error Logging Device 


For Model 6, the FORTRAN error logging device is the 
printer specified. 


For Models 10 and 12, the FORTRAN error logging device 
is designated to the first printer specified in the printer 


list. The possible devices are the 5471, 5203, and the 1403. 


For Model 15, the FORTRAN error fogging device is desig- 
nated to the first printer specified in the printer list. The 
possible devices are the 1403 and the 3284. 

Output from execution of a STOP n statement, DUMP or 
PDUMP subprograms, DEBUG statement, or error trace- 
back is directed to the FORTRAN error logging device. 


Output from execution of a PAUSE statement on the 
Models 6 and 10 is directed to the FORTRAN error logging 
device. For Models 12 and 15, this output is directed to 
the system log device if it is available; if the system log 
device is not available, the output is displayed. 


Example: 


// PRINT DEVICE-’5203,MFCU2’ 


The example states that two printer devices, the 5203 and 
the MFCU2, are to be used. 


The PRINT statement is always assumed by default; 
therefore, to avoid the default, you must specify the 


NOPRINTER statement, as follows: 

// NOPRINTER 
No attempt should be made to execute statements that 
require printer output if the NOPRINTER statement is 
specified. 
PUNCH Device Option Statement 
The format of the PUNCH statement is: 

// PUNCH DEVICE-‘device device’, RECL-nn©) 
where 

device is any of the following: 


For Model 10—MFCU2, 1442 


For Model 6—-5496 
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For Model 12—MFCU2, 1442 


For Model 15—-MFCU2, MFCU2*, MFCM2, MFCM2*, 
1442, 1442*, 3741 3747>O 


The asterisk following a device indicates one buffer is 
requested. The default is two buffers. You cannot 
specify a device to have both one and two buffers in 
one program. If this occurs by error, one buffer over- 
rides two buffers. (See Model 15 Double Buffering for 
Card Devices in Chapter 20, System Considerations.) 


If only one device is specified, the enclosing apostrophes 
can be omitted. 


RECL-nn specifies the number (nn) of bytes in a logical 
3741 record. This number must be from 1 through 128. 
The parameter must be coded if the 3741 was specified 
as a device. If the parameter is coded and the 3741 is 
not specified, an OPTIONS ERROR will be set. 


Example: 
// PUNCH DEVICE-5496 


The example states that the 5496 will be used as a punch 
device. 


// PUNCH DEVICE-3741*,RECL-80 
This example states that the 3741 will be used as a punch 


device. One buffer is requested and the logical record length 
is 80 bytes. 


DAD40, DAD44, and DAD45 Device Option Statements 


// DAD44 UNITNO-‘unit,unit, ... ,unit’, 

// BLOCKSIZE-'‘block,block, ... ,block’, 

// BUFFERS-‘number,number, .. . ,.number’, 
// CLEAR-‘Y,N,...,%, 

// UPDATE-’Y,N,... N’ 


where 


DAD44 indicates a direct-access file on the 5444 device 


1 
© For 5704-FO2 only. 
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UNITNO is used to specify the logical unit number (unit). 
This number is used in the associated I/O statements to 
refer this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 


BLOCKSIZE is used to specify the size of the block of 
records to be transmitted for each corresponding file. 
This value {block) must be 256 or a multiple of 256 (for 
example, 512 or 1024). The enclosing apostrophes can 
be omitted if only one block is specified. If this param- 
eter is not specified, a default value is calculated using 
the record size from the DEFINE FILE statement. (See 
index entry buffers.) 1/O time can be decreased by 
specifying as large a block as possible. (See Chapter 17, 
Direct-Access Programming Considerations.) 


BUFFERS is used to specify the number of buffers to be 
used for the corresponding file. This number can be 1 or 
2. If this parameter is not specified, the default value is 
1. When sharing buffers only 1 buffer can be specified. 
I/O time can be decreased when two buffers are assigned 
for each file and the file is accessed sequentially. (See 
Chapter 17, Direct-Access Programming Considerations.) 
The enclosing apostrophes can be omitted if only one 
number is specified. 


CLEAR (Model 15 only) is used to request (Y) or 
prohibit (N) clearing a new direct-access file. If this 
parameter is omitted, the default is (Y) for each 
corresponding file. 1/O time is decreased if clearing is 
prohibited when creating files, but the user is responsible 
for formatting the disk space and ensuring that all 
records are valid. Enclosing apostrophes can be omitted 
if only one option is specified. 


UPDATE is used to request input with update (Y) or 
input only (N) access to a direct-access file. If this param- 
eter is omitted, the default is (Y) for each corresponding 
file. The parameter is not used when creating a new file. 
If two programs in two partitions or an interrupted 
(rolled out) program and an inquiry program access the 
same file, at least one of the programs must specify 
UPDATE-N.@) The enclosing apostrophes can be omitted 
if only one option is specified. 


Example: 


// DAD44 UNITNO-'15,20’, BLOCKSIZE-'256,512', 
// BUFFERS-'1,2,’ 


O)this restriction does not apply to 5704-FO2. 
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The example states that unit numbers 15 and 20 are referred 
to as direct-access files. The size of the block of records for 
file 15 is 256 and for file 20 is 512. One buffer is allocated 
for file 15 and two buffers for file 20. At execution time, 
files named FTO00015 and FTO00020 must be defined on 
FILE statements. 


The DAD45 statement is the same as the DAL44 except 
that it indicates a direct-access file on the 5445 device. 


// DAD45 UNITNO-‘unit,unit, ... ,unit’, 

// BLOCKSIZE-‘block,block, ... ,block’, 

// BUFFERS-’number,number, ... ,number’, 
// CLEAR-'Y,N,...,Y%, 

// UPDATE-‘Y,N,...N’ 


As on the DAD44 statement, the CLEAR parameter is for 
the Model 15 only. 


The DAD40 statement is the same as the DAD44 except 
that it indicates a direct-access file in the main data area on 
the 3340 Direct Access Storage Facility. Only the Model 12 
and Model 15 use the DAD40 statement. 


// DAD40 UNITNO-‘unit,unit, ... ,unit’, 

// BLOCKSIZE-‘block,block, ... ,block’, 

// BUFFERS-‘number,number, ... ,number’, 
// CLEAR-Y,N,...,Y'’, 

// UPDATE-’Y,N,...,N’ 


The CLEAR parameter is only for the Model 15. 


SEQ40, SEQ44, and SEQ45 Device Option Statements 


// SEQ44 UNITNO-‘unit, ... ,unit’, 
// BLOCKSIZE-’block, ... ,block’ 


where 
SEQ44 indicates a sequential file on the 5444 device. 


UNITNO is used to specify the logical unit number (unit). 
This number is used in the associated 1/O statements to 
refer to this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 
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BLOCKSIZE is the size of the block containing a record 

to be transmitted for each corresponding file. A 

BLOCKSIZE must be specified for each unit given in 

the UNITNO parameter. The value of b/ock must be 

256, 128, 64, 32, or 16. The enclosing apostrophes can 

be omitted if only one block is specified. For best 1/O 

performance, and most efficient use of disk space, 

specify a block size as the smallest submultiple of 256 

that is equal to or larger than your file’s record size. 

(See Chapter 18, Sequential Disk and Tape Programming 

Considerations. } 


Example: 

// SEQ44 UNITNO-14,15', BLOCKSIZE-’256,256' 
The example states that unit numbers 14 and 15 are to be 
referred to as sequential files on the 5444. Files named 


FT00014 and FT00015 must be defined on FILE state- 
ments at execution time. 


Compilation 96.1 


This page intentionally left blank. 


96.2 


The SEQ45 statement is the same as the SEQ44 statement, 
except that it indicates a sequential file on the 5445 device. 


// SEQ45 UNITNO-‘unit, . .. unit’, 
// BLOCKSIZE-‘block, .. . ,block’ 


The SEQ40 statement is the same as the SEQ44 statement 
except that it indicates a sequential file in the main data 
area on the 3340 Direct Access Storage Facility. Only the 
Model 12 and Model 15 use the SEQ40 statement. 


// SEQ40 UNITNO-‘unit,unit, ... ,unit’, 
// BLOCKSIZE-‘block,block, ... ,block 
TAPE Device Option Statement 


// TAPE UNITNO-‘unit,... ,unit’, 
// BLOCKSIZE-‘block,... ,block’ 


where 


UNITNO is used to specify the logical unit number (unit). 


This number is used in the associated !/O statements to 
refer to this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 


BLOCKSIZE is used to define the record length for 
each corresponding file. A BLOCKSIZE must be 
specified for each unit given in the UNITNO parameter. 
The value of b/ock must be a number between 18 and 
32767. The enclosing apostrophes can be omitted if 
onty one block is specified. The System/3 BLOCKSIZE 
parameter must be equal to or greater than the logical 
record length for formatted 1/O. (See Chapter 18, 
Sequential Disk and Tape Programming Considerations. } 


Example: 
// TAPE UNITNO-10,BLOCKSIZE-512 


The example states that unit number 10 on a magnetic 
tape device has a record length of 512 bytes. 


The file named FTO00010 must be defined on a FILE (tape) 
statement at execution time. 
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Note (Mode! 15 only): \f records are being transmitted to 
or from a tape drive using multifile tape volumes, the OCL 
FILE statement must specify the fite’s sequence number 
(SEQNUM). A further description of multifile tape volumes 
can be found in /BM Svstem/3 Mode! 15 System Contra/l 
Programming Reference Manual, GC21-5077. 


CORE Statement 


The CORE statement specifies how much main storage is 
required for the load module at execution time. This value 
is passed to the linkage editor for a main program te be link- 
edited immediately following compilation (the LINK 
compiler option was specified). If you do not include a 
CORE statement, the default is the actual size of the 
program. 


The format of the statement is: 
// CORE SIZE-annK 
where 
SIZE-annK indicates the amount of storage required: 


nnK represents a number multiplied by K (1024 bytes). 
For example, O5K indicates 5K, or 5120 bytes. 


a indicates an additional fractional K; it is given one of 
the values: Q (additional quarter K), H (additional half 
K), T (additional three-quarter K), or 0 (no additional 
K). For example, Q indicates an additional 1/4K or 256 
bytes. 


Example: 
// CORE SIZE-H10K 


The example states that 10K bytes, plus an additional 1/2K 
(512 bytes), are to be allocated. 


Note: For program 5704-FO2 only, when main storage 
size is specified by the CORE statement, external buffer 
storage space is not included. External buffers, when 
specified in the “PROCESS statement, are allocated outside 
of the specified CORE space but within the partition. 
External buffer storage requirements are listed in the 
overlay linkage editor map for main programs. 
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CATEGORY Statement 


The CATEGORY statement specifies a category value for a 
FORTRAN subprogram. The category value is used by the 
linkage editor to determine the priority of the subprogram 
for remaining in main storage in an overlay environment. 


The value is specified as a number between 0 and 128, the 
lower the number the greater the priority. 


A category value of O means that the subprogram will never 
be overlaid. Category values 1-7 are used by system modules 
and modules in the FORTRAN library. If no category is 
specified for a program, its value is assumed to be 20. 


The format of the statement is: 
// CATEGORY VALUE-m 


where 
VALUE-m indicates the category value, 0 through 128. 


Example: 
/1 CATEGORY VALUE-15 


The example states that the FORTRAN subprogram has a 
priority of 15; only programs having a value O through 14 
would have a higher priority. 


xPROCESS Statement 


The *PROCESS statement allows the user to specify which 
actions the compiler is to perform. For example, by select- 
ing the SOURCE option, you request the compiler to print 

a listing of the source program; by selecting the DECK option 
you request the compiler to call the linkage editor to punch 

a card deck of the object module. 


, 
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The «PROCESS statement appears in the input stream as 
the last compiler option statement befere the FORTRAN 
source program. Keep in mind that the *PROCESS 
statement is more closely related to compiler processing 
than the other statements discussed here. The other state- 
ments specify information regarding operations to be 
performed at later stages of processing, but the «PROCESS 
statement specifies options directly reiated to compiler 
operations. 


The statement must start in column one; column 72 is the 
last usable column for the statement. Continuation lines 
can be used. (See Continuing FORTRAN Statements in 
Chapter 1.) 


The format of the statement is: 
*PROCESS option,option, .. . ,option 


where 
option is one of the *PROCESS options summarized in 
Figure 11. in that figure, defaults are underlined and 
need not be specified if you want the default values to 
apply. Options can be specified in any order. Blanks 
can be inserted between options but not within an 
option. 











Option Meaning Remarks 












SOURCE 
NOSOURCE 






Whether the source program input is 
to be printed. 


























Whether the relative addresses assigned 
by the compiler to source program 
data items are to be printed, and 
whether the addresses assigned by the 
linkage editor to the load module are 
to be printed. 


MAP causes the linkage editor to perform 
extra time-consuming operations necessary 






to generate a storage map. Therefore, if 
the linkage editor is to be executed, MAP 
should be specified only if processing 








time is not critical. 


A relative address is the location of 
the data item calcuiated from the 
beginning of the program code. The 
compiler replaces each data item 
name with its relative address. (At 
execution time, branches are made to 
relative addresses rather than to 




































names.) 
DECK Whether the object module is to be If DECK is specified, the $SOURCE and 
NODECK punched by the linkage editor. SWORK files are required. 








GOSTMT 
NOGOSTMT 


Whether diagnostic traceback 
messages issued at execution time 
are to contain the internal statement 
numbers assigned by the compiler. 


An internal statement number (ISN) 
is assigned to each source program 
siatement for identification. !SNs 
are assigned in ascending order 
beginning with 1 for the first 
statement, 2 for the second state- 
ment, etc. 





Whether the source program was If the input deck contains both BCD and 
coded in EBCDIC (Extended EBCDIC, specify BCD. 

Binary Coded Decimal Interchange 

Code) or in BCD (Binary Coded 

Decimal). 


Whether the load madule is to be 





EBCDIC 
BCD 





Can be used with main programs oniy. 


paneneds if GODECK is specified, the SSGURCE 
and $WORK files are required. 





NOGODECK 
GODECK 











Whethera bitter is to be Shared 4 Can be used with rain programs only. 
between two or more direct-access 
5444, 5445, or 3340 files. 


NOSHRBUFF must be specified if: | 
two buffers are specified for any 
i 





NOSHRBUFF 
SHRBUFF 


direct-access file in a program, oF 
EXTBUF is specified for DAD files 
(Program Number 5704-FO2 only). 


Note: if you specify one oF both 
of the above with the SHRBUFF 
option, the program defaults to the i 
NOSHRBUFF option. j 
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Figure 11 (Part 1 of 3). *PROCESS Statement Options 


Semptiation go 





NOOBJECT Whether an object module is to be If CBJECT is specified, the $SOURCE and 
OBJECT (T,LIB (unit)) stored in the object library maintained | $WORK files are required. 

P by the system. 

R 


T means the object module is tempo- 
rary. P means that it is permanent. 
R means that it is to replace the 
existing module by the same name. 


Unit indicates where the object library 
resides, specified as one of the codes: 
R1—removable disk, drive 1 

F1—fixed disk, drive 1 

R2—removable disk, drive 2 

F2--fixed disk, drive 2 


If LIB(unit) is not specified, the 
library resides on the program 
pack, that is, the pack indicated in 
the unit parameter of the LOAD 
statement calling the compiler. 


The default value for the OBJECT 
option is NOOBJECT for a main 
program, and OBJECT (program 
pack) for a subprogram. 


NOLINK Whether a load module is to be 
LINK(T,LIB(unit)) stored into the object library main- 


P tained by the system. 
R 








T means that the load module is 
temporary. 

P means that it is permanent. 

R means that it is to replace the 
existing module by the same name. 


Unit indicates where the load module 
is to be stored, using the same codes 
as specified in the OBJECT option. 


If LIB(unit) is not specified, the 
load module resides on the program 
pack. 


The default value is LINK (program 
pack) for a main program (cannot 
be specified for a subprogram). 





Figure 11 (Part 2 of 3). *PROCESS Statement Options 
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May be used with main programs only. 
If LINK is specified, the $SOURCE and 
$WORK files are required. 









Meaning 














Remarks 













UPACK-unit 
(Models 12 and 
15 only) 







The pack where user routines to be 
link-edited can be found. The overlay 
linkage editor searches this pack first 
when resolving EXTRNs to modules 
whose names do not begin with $. If 
the EXTRN name is not found on this 
pack, the program pack is searched. 


Unit indicates the pack to be searched 
first. The following codes apply: 
R1—removabie disk, drive 1 

F1—fixed disk, drive 1 

R2—removable disk, drive 2 
F2—fixed disk, drive 2 


If the option is not coded, the program 
pack will be the only pack searched. 
























Can be used with main programs only. 





EXTBUF 

NOEXTBUF 
(Program Number 
5704-FO2 only) 










Whether DAD files only (DAD40, 
DAD44, DAD45) are to have buffer 
space allocated external to the 

program space. 


!f EXTBUF is specified with 
SHRBUFF, the program defau!ts to 
NOSHRBUFF. 








Figure 11 (Part 3 of 3). *PROCESS Statement Options 












Can be used with main programs only. 
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Examples: 
*PROCESS MAP, DECK 


In the preceding example, MAP indicates that the compiler 
is to print a listing, called a map, of relative addresses (and, 
if the link-editing step is executed, a load module storage 
map}, and DECK indicates that a card deck of the object 
module is to be punched. Default values, such as SOURCE 
and EBCDIC, apply for «PROCESS options that are not 
specific. 


*PROCESS SOURCE,GOSTMT,LINK(T,LIB(R1)) 


in the preceding example, SOURCE indicates that the 
compiler is to prini a listing of the source program; note 
that SOURCE, although a default value, can be explicitly 
requested. GOSTMT indicates that any diagnostic trace- 
back messages issued at execution time are to be printed 
with the ISNs of related FORTRAN statements. LINK 
(T,LIB(R1)) indicates that the load module produced by 
the linkage editor is to be stored as a temporary library 
entry located on the R1 disk. Default values apply for 
*PROCESS options that are not specified. 


BATCHED COMPILATION 


To compile a preyram consisting of many program units, 
to be immediately followed by link-editing and load 
module execution, the main program must be the last 
program compiled. For example, assume a program 
consists of three program units--one main program and 
two subprograms. They should be submitted for 
compilation such that the main program follows the sub- 
programs in the job stream. An example showing the 
placement of OCL and compiler option statements for a 
batched compilation is tItustrated in Example 4 in the 
following discussion. 


COMBINING OCL AND COMPILER OPTION STATE- 
MENTS 


The following examples show how compiler option 
statements can be combined with OCL statements. 


102 


Example 7: 


Assume you want to compile your program, with no link- 
editing step to follow. 


OCL statements you need are DATE (optional}, LOAD, 
RUN, and /*. The only compiler option statement you 
need is the *PROCESS statement to specify NOLINK. 
Statements should be submitted in this order: 


// DATE 090174 

// LOAD $FORT,R1 

// RUN 

*PROCESS NOLINK 
FORTRAN source program 


{* 
f 


Example 2: 


Assume you want to compile, link-edit, and execute a 
program that reads data from a card reader and prints the 
results on a printer. Further assume you want atl compiler 
default options to apply. 


Necessary OCL statements are DATE, LOAD, FILE 
$WORK, FILE $SOURCE, RUN, and /*. The only com- 
piler option statement you need is a READ statement to 
set up the input buffers for the reader used at execution 
time; assume that the reader at your location is the 5496 
(for a Model 6 installation). You need neither a PRINT 
statement (because PRINT is assumed), nor a *PROCESS 
statement (because all *PROCESS defaults are wanted). 
Statements should be submitted in this order: 


// DATE 090174 

// LOAD $FORT,R1 

// FILE NAME-$WORK,UNIT-R1,PACK-111111, 
TRACKS-20,RETAIN-S 

// FILE NAME-$SOURCE,UNIT-R1,PACK-111111, 
TRACKS-20,RETAIN-S 

/i RUN 

// READ DEVICE-5496 

FORTRAN source program 

P 

// LOAD ##MAIN,R1 

// RUN 

Program data 


/* 


In this example, the READ statement defines the reader to 
use at execution time. The compilation and link-editing 
operation is defined as being from the first LOAD statement 
through the first /* statement. The load module execution 
operation is defined as being from the second LOAD 
statement (LOAD ##MAIN) through the second /* 
statement. 


Example 3: 


Assume you wish to compile, link-edit, and execute a 
program that requires a card reader, a printer, and two 
sequential files with logical unit numbers 15 and 16. You 
are going to use the procedure, FORTRN, containing the 
appropriate LOAD and FILE statements, to call the 
compiler; and you want to produce all output types that 
the compiler is capable of generating. 


OCL staternents you need are DATE, CALL, RUN, and /*. 
Compiler option statements you need are READ (assume 
a Model 10 installation having the MFCU1 device), SEQ44 
to define two file numbers (assume the 5444 device), and 
*PROCESS specifying MAP, GOSTMT, DECK, and 
GODECK (output-producing PROCESSING options not 
assumed by default). Statements should be submitted in 
this order: 


// DATE 090174 

// CALL FORTRN,R2 

// RUN 

// READ DEVICE-MFCU1 

// SEQ44 UNITNO-'15,16',BLOCKSIZE-'256,256' 
*PROCESS MAP,GOSTMT,DECK,GODECK 
FORTRAN source program 

/* 


Statements required by the load module execution step are 
not illustrated here. The SEQ44 statement requires two 
corresponding FILE statements at execution time. Required 
FILE statements are described in Chapter 15 Load Module 
Execution. 


Example 4: 


Assume you want to compile, link-edit, and execute a 
program consisting of three program units—~MAIN, SUB1, 
and SUB2. A program consisting of more than one program 
unit is submitted as a batch compilation, with the subpro- 
grams compiled first and the main program compiled last. 


Any compiler cption statements specified, except 
»PROCESS and CATEGORY, must be submitted with 
the main program. (*PROCESS can be submitted for main 
programs and subprograms, CATEGORY for subprograms 
only.) Thus, assuming that a card reader is to read cata to 
the program, the READ device option statement must be 
submitted among the compilation cards for the main 
program. Further assume that the procedure, FORTRN, 
containing the appropriate LOAD and FILE statements, 

is used, and that both subprograms SUB1 and SUB2 are 
given a category value of 10. 


Statements should be submitted in this order: 


// DATE 090174 

// CALL FORTRN,R2 

// RUN 

/{ CATEGORY VALUE-10 
SUBROUTINE SUB1 

/* 

// CALL FORTRN,R2 

// RUN 

// CATEGORY VALUE-10 
SUBROUTINE SUB2 

/* 

// CALL FORTRN,R2 

// RUN 

// READ DEVICE-5471 
PROGRAM MAIN 

/* 

// LOAD MAIN, R2 

// RUN 

Data input to load module 

/* 


The first CALL FORTRAN statement calls the FORTRAN 
compiier to compiie SUB. The /* statement indicates the 
end of the first compilation. The next CALL FORTRISN 
statement calls the compiler to compile SUB?. The third 
CALL FORTRN statement calls the compiler ic compils 
MAIN. The LCAS MAIN statement is the first ste tcrment 
of the load moduie execution step. 
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The output of the FORTRAN compiler, the object module, 
is not ready to be executed as a program. 


During a process called link-editing, the linkage editor con- 
verts the object module into a load module that is ready 
for execution. 


COMPILER INPUT TO THE LINKAGE EDITOR 


The FORTRAN compiler calls the linkage editor automatic- 
ally if any of the *PROCESS options DECK, OBJECT, 
LINK, or GODECK are specified. !f these options are 
specified, the compiler must also pass to the linkage editor 
the object module defined in the $WORK FILE statement 
and a utility work file defined in the $SOURCE FILE 
statement. 


The OBJECT option causes the linkage editor to store the 
object module into a library. DECK causes the linkage 
editor to punch a card deck of the object module. If these 
are the only options passed to the linkage editor, it returns 
control to the system after performing these functions. 


LINK causes the linkage editor to perform the link-editing 
function. GODECK can be specified to have a card deck 
of the load module punched. 


Chapter 14. Linkage Editor Processing 


OCL STATEMENTS NEEDED FOR THE LINKAGE 
EDITOR 


If the linkage editor is called by the compiler, you need 
supply only the FILE statements named $WORK and 
$SOURCE as part of the compile step OCL statements. 
If the linkage editor is not called automatically, you can 
call it directly by specifying its name, SOLINK, ina 
LOAD statement. 


The following examples show only the order in which 
OCL statements should be submitted. 


Example 1: 


To call the linkage editor without using a procedure, you 
submit the following statements: 


// LOAD SOLINK,R1 

// FILE NAME-SWORK 
// FILE NAME-S$SOURCE 
// RUN 

Linkage editor input 

/* 


Example 2: 


To call the linkage editor using the procedure FORTL, 
you submit the following statements: 


// CALL FORTL,R1 
// RUN 

Linkage editor input 
/* 
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LINKAGE EDITOR CONTROL STATEMENTS 


The formats and uses of the finkage editor control state- 
ments are identical for all models. 


Ordinarily, the compiler passes to the linkage editor all 
information that is necessary to link-edit an object module. 
However there are instances when you want to call the 
linkage editor facility directly, such as to group a number 
of subprograms together in storage. In such instances, you 
can load the linkage editor directly and use linkage editor 
control statements to specify the options you want. 


Linkage editor control statements provide information 
about the object modules to be link-edited. Like compiler 
option statements, they are used exclusively in one step and 
are coded in the same manner as OCL statements. 


Linkage editor control statements are fully described in 
IBM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561. 


The following example shows how linkage editor control 
statements can be combined with OCL statements. 


Example 1: 


Example 1 of Combining OCL and Compiler Option State- 
ments in Chapter 13, Compilation showed how to compile 
and store a program into an object library. Assume you 
want to retrieve that program, link-edit it, and store the 
load module under the name FIRST, into any library. 


OCL statements you need are DATE, LOAD, FILE 
SWORK and FILE $SOURCE, and RUN. Linkage editor 
control statements you need are PHASE, to assign a name 
to the load module, INCLUDE, to indicate the object 
module to be included in the link edit, and END. State- 
ments should be submitted in this order: 


/{ DATE 100174 

// LOAD $OLINK,R1 

// FILE NAME-$WORK,UNIT-R1,PACK-111111, 
TRACKS-20,RETAIN-S 

// FILE NAME-SSOURCE,UNIT-R1,PACK-111111, 
TRACKS-20,RETAIN-S 

// RUN 

// PHASE NAME-FIRST 

// INCLUDE NAME-PROG1,UNIT-F1 

// CATEGORY NAME-$$BTAM,VALUE-2 

// END 
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In this example, the LOAD statement !oads the linkage 
editor from its location on unit R1. The two FILE state- 
ments are required to provide work space for the linkage 
editor. The PHASE statement tells the linkage editor to 
store the load module under the name FIRST; by default 
the load module is stored as a temporary unit on R1 (the 
program pack). The INCLUDE statement specifies that 
the object module to be link-edited is named PROG1 and 
ison unit F1. The CATEGORY statement changes 
$$BTAM from category 3 to category 2. 


LINKAGE EDITOR OVERLAY FEATURE 


If main storage is too small to accommodate an entire pro- 
gram, the linkage editor will force the program into overlays. 
In addition to the automatic overlay that can be performed 
by the linkage editor, the programmer can explicitly request 
overlays through the use of linkage editor contro! statements. 


The linkage editor attempts to fit all modules of an object 
program into the specified storage size without overlays. 
If this cannot be accomplished, the linkage editor assigns 
some modules to overlay segments. Modules are placed in 
overlays according to their size, category, and relationship 
to other modules in the program. 


The linkage editor overlay feature is fully described in the 
/BM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561. 


Chapter 15. Load Madule Execution 


The load module execution step runs a FORTRAN program 
that has been compiled and merged with other object 
modules into a load module. 


Load module input consists of OCL statements defining 
the step arid any program data to be processed by the load 
module. Output consists of program output and execution 
messages. 


This section describes OCL statements needed for load 
module execution, program data, and combining OCL 
statements and data. 


OCL STATEMENTS NEEDED FOR LOAD MODULE 
EXECUTION 


The load module is called by an OCL LOAD statement 
specifying the load module’s name. The name is either the 
name you assign to the source program in the PROGRAM 
statement, or the name ##MAIN given to an unnamed 
program by the compiler. 


OCL statements needed for load module execution are 
summarized in Figure 12. 
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// LOAD ##MAIN 
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Figure 12. OCL Statements Needed for Load Module Execution 
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Examples for their use are shown below. These examples 
show only the order in which statements should be sub- 
mitted; for examples of fully coded OCL statements see 
Combining Load Module OCL Statements with Compile 
Step Statements in this chapter. 


Example 1: 


Assume a procedure of OCL statements, FO RTG, contain- 
inga LO.-« statement having the name ##MAIN. To cali 
the procedure to execute an unnamed program, submit 
the following cards: 


// CALL FORTG,F1 
// RUN 

Program data if any 
/* 


Example 2: 


To call the same procedure, only this time for a program 
having the name MYPROG, submit the following cards: 


// CALL FORTG,F1 
// LOAD MYPROG 
// RUN 

Program data if any 


/* 


The LOAD statement specifying the name MYPROG 
replaces the LOAD statement in the procedure. 


Example 3: 


To load a load module directly, without using a procedure 
and assuming the use of a printer and a disk file named 
FTOO009, submit the following cards: 


’ 


// LOAD MYPROG 
// FILE NAME~FTOO009 
/{ RUN 
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PROGRAM DATA 


Program data—information to be processed by the load 
module—can be submitted in cards, as records on disk or 
tape, or from the keybeard. Disk or tape records are 
defined as files on FILE statements. Card records arc 
submitted as a card deck between the OCL RUN and 

/* statements. The following example shows how you 
can define input both on cards and on disk. 


Assume your program reacts input from cards and from two 
files numbered 15 and 16, and you use the procedure 
FORTG to call the !oad module. Statements should be 
submitted in this order: 


// CALL FORTG,F1 

// FILE NAME-~FT00015 
// FILE NAME-FT00016 
// RUN 

Card program data 

/* 


COMBINING LOAD MODULE OCL STATEMENTS WITH 
COMPILE STEP STATEMENTS 


The load module statements specified in the preceding 
examples can be combined with compile step statements to 
form a complete job. In Chapter 13 Compilation, under the 
heading Combining OCL and Compiler Option Statements, 
Example 3 shows compile step statements that can be 
merged with load module statements. Simply place the 
load module statements after the compile statements to 
form a job in the following order: 


// DATE 090174 

// CALL FORTRN,R2 

// RUN 

// READ DEVICE-MFCU1 

// SEQ44 UNITNO-‘15,16’,BLOCKSIZE-‘256,256' 

*PROCESS MAP,GOSTMT,DECK,GODECK 

FORTRAN source program 

/* 

// CALi. FORTG,R2 

// FILE NAME-FT00015,UNIT-R2,PACK-12345, 
TRACKS-5 

// FILE NAME-FT00016,UNIT-R2,PACK-12345, 
TRACKS-5 

// RUN 

Card program data 

[* 


In this example, DATE assigns a system date to the job. 


The first CALL invokes the compile procedure FORTRN. 


READ sets up the MFCU1 as the execution-time card 
reader; this statement permits card input to be read 
during the execution step. SEQ44 sets up a system 
contro! block and buffer space for each of the execution 
time files named FT00015 and FTO0016. *PROCESS 
specifies compiler options (a storage map to be printed, 
execution time error messages to be generated with 
internal statement numbers, a card deck of the object 
module to be punched, and a card deck of the load 
module to be punched). 


The second CALL invokes the !oad module procedure. 
The two FILE statements define the files whose system 
control blocks were defined by SEQ44. Card program 
data is read from the device defined by the compile step 
READ statement. 


Load Module Execution 


oa 
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This chapter describes job output for the FORTRAN pio- 
gram depicted in Figures 13 and 14. Figure 13 shows a 
program as it was coded. This program adds a list of 4-digit 
numbers, computes the average, stores the results into a 
direct-access file, and prints the results. Figure 14 shows 
the program as it was keypunched. Keypunch errors were 


introduced to provide examples of system diagnostic action. 


Figure 15 illustrates the OCL for the job and an input state- 
ment containing a group of numbers for the source program 
to add and average. The CALL statement calls the compiler. 
The device option statements READ, PRINT, and DAD44 
define devices to be used at execution time. The «PROCESS 
statement lists a typical selection of compiler options that 
produce output. If the *PROCESS statement were missing, 








































































Figure 13. Sample FORTRAN Program as Coded 


FORTRAN Coding Form 





Chapter 16. Job Output 


default options SOURCE and LINK would still be in effect 
(SOURCE because it is the default for all programs, LINK 
because it is the default for main programs). The FOR- 
TRAN source program is placed between the ~*PROCESS 
statement and the /* staternent which is the last of the com- 
pile step statements. The LINK option causes the linkage 
editor to be called automatically; no OCL. statements need 
by supplied for the link edit step. The LOAD statement 
loads the load module. The FILE statement defines the 
direct-access file used in the program. Input data consists 
of 18 numbers, consecutively numbered 1 through 18, 
which the FORTRAN program is to read four characters 
at a time into the array NUMBS. 
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Pt et MB bbe ey boy ae bi. | POR phew bod 
Pee ee Gh aaa Jae rem eeeeaicg fale rift as 
eee ; ae: oe ls Sima ten ie’ el 1 
Kj} | REP CION TING UNTIL. END. OF, FUE. 
I. | NUMBIER: ae eee READ. aoe ae ae 
++ ALI IM se Mo. poe eee 4d cqpdbasteds 
pee f SUM te. eee Ee ay testes 
bet} OO A Tt, My i Tee eh beget hgh g 
H+ OL {SU +. wus Crh ebay mr eee | 
HSA} CONTINUE | ee sete te 
H,— AVG F, Su) a tebe debs de 9 fected 
det 0S. ald aU eg i 10) 
po | WRETIE. CN 1. Bae b. SUM. AMG. ., Ls 
ue ReaD) Cua) 300 2). Sum. AY. : 
Hp} AML TE. 43.2000), SUM. ANG [1 .. ae 
Pea foc cl ec he dice iat LSB ba kes ; - 
oe 8. Ty). Po aac Bh Mapes teed ad an aceon See = 
| ACOs) Eat SUM SOF. NUMBERS ea i 2. a wveRAGe if 
BAO FORMAT ( 2 FB. BL. dg hg weg 
Pt | TEND. Wate, oes aks i ; \ i 2 t 
| ee 
| i Pe ae ee 5 


PROGRAM AVG 
THIS PROGRAM READS AND AVERAGES NUMBERS. THE NUMBERS ARE READ 
IN GROUPS OF EIGHTEEN FROM THE MFCU1. 
DEFINE FILE 14 ( 1, 16, E, K } 
IT ALSO WRITES THE AVERAGE ON UNIT 14 AND READS IT BACK FOR 
PRINTING. 
DIMENSION NUMBS ( 1000 ) 
NUMBS IS THE ARRAY INTO WHICH THE NUMBERS ARE READ. 1000 NUMBERS 
IS THE MAXIMUM NUMBER OF NUMBERS THAT CAN BE AVERAGED. 

1 

18 
wWAD ( 1, 1000, END = 20 ( NUMBS(I), I = M, N ) 

M + 18 

7 N + 18 


GO TO 10 
READING CONTINUES UNTIL END OF FILE. M IS ONE GREATER THAN THE 


NUMBER OF NUMBERS READ WHEN CONTROL IS TRANSFERRED TO 20. 
M=M-1 
SUM = 0. 
pO 30 I=1, M 
SUM = SUM + NUMBS(H) 
CONTINUE 
AVG = SUM / M 
WRITE ( 3, 2000 ) SUM, AVG 
WRITE ( 14'1, 3000 ) SUM, AVG 
READ ( 14'1, 3000 ) SUM, AVG 
WRITE (3, 2000) SUM, AVG 
STOP 
FORMAT ( 18 I4 ) 
FORMAT ( * SUM OF NUMBERS = ', F8.3,' AVERAGE = ',F8.3 ) 
FORMAT ( 2 F8.3 ) 
END 





Figure 14. Sample FORTRAN Program as Keypunched 


CALL FORTRN,R2 
RUN 
READ DEVICE-MFCU1L 
PRINT DEVICE-5203 
DADY4 UNITNO-14 
*PROCESS SOURCE,LINK(T,LIB(R2)) ,NOSHRBUFF 
FORTRAN source program 
/* 
// LOAD AVG,R2 
// FILE UNIT-F2,PACK-544400,TRACKS-20,RETAIN-S,NAME-FTO00014, 


// UABEL-MYFILE 

// RUN 
000100020003000400050006000700080009001000110012001300140015001600170018 
/* 





Figure 15. OCL Example 
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Each compilation produces the following output: 


@ An object module if no severe errors were encountered 
(as described in Diagnostic Messages), unless the 
*PROCESS option NOLINK is specified. 


® A compiler output listing that contains informative and 
diagnostic messages. 


OBJECT MODULE 


The compiler produces an object module in the form of a 
series of records each 64 bytes tong. There are three types 
of records in an object module: 


@ ESL (external symbol list record) 
® RLD (text-relocation directory record) 


@ End Record 


ESL Records 


An ESL record defines the object module’s reference name 
and external references to other modules that are to be link- 
edited with this object module. The ESL record format is 
iustrated in Figure 16. 


An ESL record is identified by the character S in the record’s 
first byte. An ESL record can contain up to five ESL 
entries, each entry being 12 bytes long. There are seven 
tyoes of ESL entries: 


Module Name: This entry contains the symbolic name of 
the module, the start address, the module length (in hexa- 
decimal), and its category value. 


Entry Point: This entry specifies this module’s entry point 
name and its address. 


EXTRN Reference: This entry specifies an external refer- 
ence, that is, a reference to a module name in another module. 
During the link-edit step the linkage editor must resolve 

this reference (that is, locate the referenced modute), by 
searching first the job stream, then the SWORK file, and 
finaily the object library until it locates the referenced 
module. 


Weak EXTRN Reference: This entry specifies an external 
reference also, but during link edit the linkage editor does 
not search the object library. If it cannot rescive the 
corresponding reference name by searching the job stream 
and SWORK, the linkage editor ignores the entr 


GLOBAL Entry: This entry specifies a space allocation for 
a global area, an area to be used by imiore than one iaad 
module. This area is allocated at the start of tha program 
level and its size is the size of the fargest global area en- 
countered. 


COMMON Entry: This entry specifies a space allocation for 
a common area, an area to be used by one joad module 
onty. This area is allocated immediately following anv 
global area or at the load point if no global area is allocated. 


EXTBUF Entry: This entry specifies the space required 
for external DAD buffers. The area is ailocated during 
execution of the program and ts located after che last 
program byte used (between the logical enc of the program 
and the end of the partition). 


RLD Records 


n RLD record contains the object code and any intorma- 
tion needed tc make the text relocatanie. The PLO record 
format is illustrated in Figure 16. 

An RLD record is identified by the character Tn the 
record’s first byte. 


Job Outpt 77S 


End Record 


The End record defines the end of the object module and 
contains the module's start address. It is identified by the 
character E in the record’s first byte. It is illustrated in 
Figure 16. 





ESL Record 
ESL ESL 
Entry 1 Entry 2 Entry 3 Entry 4 
1 2 3 15 27 39 51 63-64 
RLD Record 


Assembled 
of text address of 
portion rightmost 
OF RLD } byte of 
record text record 

relative to 0. 





END Record 


Start 


Address 





1 2-3 4 64 


Figure 16. Object Module Record Formats 
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COMPILER OUTPUT LISTING 


Compilation of the program shown in Figure 14 results in 
the output listing illustrated in Figure 17, which includes 
the compilation errors encountered. Figure 78 illustrates 
the listing for the same program after compilation errors 

were corrected. 


Messages 


Informative messages let you know the status of the compil- 
ation giving such information as the date the job was run 

and the compiler’s version and modification level. Diagnostic 
messages let you know of any errors encountered during 
compilation. 


Informative Messages 


Informative messages in Figure 17 are labeled and G 
the beginning and the end of the compiler output listing. 
Label shows the first line of the listing, and a list of 
compiler option statements specified for the program. 


Label a points to the end of the listing, and lists the 
number of compilation errors encountered, the highest 
severity code encountered (see Diagnostic Messages, follow- 
ing, for a discussion of severity codes), and a list of state- 
ment allocations that indicate storage addresses assigned to 
statement numbers used in the program. Storage address, 
shown in hexadecimal! notation, are relative to the begin- 
ning of the program. Because the compiler moves the in- 
ternal code of FORMAT statements to the beginning of 
the program, statement numbers of FORMAT statements, 
such as numbers 3000, 2000, and 1000 in this program, 
are allocated lower storage addresses than numbers for 
executable statements, such as numbers 20, 30 and 40 in 
this program. 


Diagnostic Messages 
Compiler diagnostic messages in Figure 17 are labeled o ; 
Diagnostic messages appear on an output listing under the 


headings: 


STATEMENT ERROR 
NUMBER ISN NUMBER SEVERITY EXPLANATION 


Job Output 
p 


415 


where 


STATEMENT NUMBER is the statement number 
assigned to a FORTRAN source statement by the pro- 
grammer. Either the statement number or the internal 
statement number (ISN) is printed on the diagnostic 
linc. 


ISN is the internal statement number assigned to the 
FORTRAN statement by the compiler. ISNs are 
assigneu in ascending order to the statements in the 
source module. ({SNs appear on the extreme left side 
of the source listing, labeled a , in Figure 17.) 


ERROR NUMBER is a two-digit number assigned to a 
particular error condition by the compiler. Each error 
condition is assigned a number. Errot conditions, and 
corresponding explanations, are listed in Appendix B. 
Compilation Messages. 


SEVERITY indicates the severity code assigned to the 
error by the compiler. Each error is assigned one of 
two severity codes: 


4 Indicates a possib/e error. Compilation continues 
and the link-editing function is performed if 
called, 


8 Indicates an error. Compilation continues but the 
system terminates processing after compilation. 
{f any of the options LINK, OBJECT, DECK, or 
GODECK were specified, they are ignored. 


EXPLANATION is a brief summary of the error condi- 
tion. A tull explanation of each error condition is 
presented in Appendix B. Compilation Messages. 


Figure 17 illustrates three diagnostic errors, one with 
severity code 4, the others with severity code 8. The first 
error illustrated, for source statement 40, indicates that 
the source statement is nowhere referred to and thus does 
not need a statement number. Source statement 40 Is: 


40 READ(14'1,3000)SUM,AVG 


Because this error will not affect program execution, it has 
a severity code of 4. 


The next error illustrated, for ISN 006, indicates a syntax 
error. ISN 6 is the following statement: 


10 READ(1,1000,END=20(NUMBS(1),I=M,N) 
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By scanning the statement we see that it contains three left 
parentheses and only two right parentheses; a right paren- 
thesis belongs after END=20. Because this error will affect 
program execution, it has a severity code of 8, preventing 
load moduie execution. 


The next error, for ISN 013, indicates an error in a subscript 
expression. ISN 13 contains only one subscript expression, 
NUMBS(H}, where H is interpreted to be a real variabie. 
This expression should be corrected to NUMBS(j). 


Figure 18 is a listing of compiler output after these correc- 
tions were made. For purposes of easier comparison be- 
tween Figures 18 and 17, areas of Figure 18 pertinent to 
the corrections are highlighted. 


OUTPUT FROM «PROCESS OPTIONS 


*PROCESS options that produce some form of output are 
SOURCE, MAP, DECK, GODECK, OBJECT, and LINK. 

If default options are in effect, SOURCE produces a listing 
of the source module; OBJECT produces an object module 
for a subprogram; LINK produces a load module for a 
main program; and MAP, GODECK, and DECK are sup- 
pressed. You may suppress SOURCE by explicitly speci- 
fying NOSOURCE. You can produce a storage map by 
specifying MAP, a card deck of the object module by speci- 
fying DECK, and a card deck of the load module by speci- 
fying GODECK. 


FORTRAN ITV VERnn/MODnn 
| 7? READ 


DEVICE-MFCUL 


// PRINT DEVICE-5203 
4/4 DAD4S4 UNETTNU-14 
S ®PROCESS MAP ,LINKUT,LEB(R2)),NOSHRBUFF 
f L PROGRAM AVG 
Cc THIS PROGRAM READS AND AVERAGES NUMBERS. 
c IN GRUUPS OF EIGHTEEN FROM THE MFECUL. 
2 DEFINE FILE Le t ly lor E, KD 
Cc If ALSO WRITES THE AVERAGE ON UNIT 14 AND 
G PRENTING. 
3 DIMENSION NUMBS € 1000 ) 
Cc NUMBS IS THE ARRAY INTO wHiCH THE NUMBERS 
Cc 1S THE MAXIMUM NUMBER OF NUMBERS THAT CAN 
4 M = 1 
5 N = 18 
6 10 READ € ly LOVVD, END = 20 { NUMBS(T), I 
T M=M + 18 
8 N=N + 19 
9 GU TO 10 
Gi g Cc READING CUNTINUES UNTIL FND OF FILE. MoI 
Cc NUMBER OF NUMBERS READ WHEN CONTROL ES TR 
\ 10 22 M=M- 2 
LL SUM = O. 
12 0 30 1 = ly ™ 
13 SUM = SUM * NUMBSTH) 
14 30 CONTINUE 
15 AVG = SUM / M 
16 WRITE € 3, 2000 ) SUM, AVG 
17 WRITE (€ L4%l, 3000 9 SUM, AVG 
18 40 READ ( 14*1l, 3000 ) SUM, AVG 
19 ARITE (€3,2000) SUMZAVG 
20 stop 
2k 100J FURMAT € 18 £4 ) 
22 2000 FORMAT € © SUM OF NUMBERS = 'yF8.3,' AVER 
23 3000 FORMAT € 2 F823 ) 
24 END 
( NAME AT HEX] DECL HEX2 DEC2 NAME AT HEXL DECL He 
\ vues I 0360 JOBTT 13U0C 04876 K I 130D 34877 
N I 1315 04885 1 [ 1319 04889 
lave R 1321 04897 
ERRORS FOR THIS COMPTLATION 
STATEMENT LRRUR 
| NUMBER ISN NUMBER SEVERITY 
a 40 oT 4% STA 
JI6 a3 g SYN 
JL3 21 8 Sua 
003 FOTAL ERRORS FOR THIS COMPITLATION 
\ 8 WAS THE HIGHEST SEVERITY 
G STATEMENT ALLOCATIONS 
3000 =13F2 2J09 =1418 L000 =1424 2) =1463 30 


Figure 17. Compiler Output Listing 


nn/nn/nn PAGE OOL 


THE NUMBERS ARE READ 


READS TT BACK FUR 


ARE READ. 1000 NUMBERS 
BE AVERAGED. 


= My N ) 


S ONE GREATER THAN Tit 
ANSFERREO TO 20. 


AGE = t,F8.3 0 

X2 Jel2 NAME AT HEXL JECL HEX2 DECZ 
M { 1311 348381 
SUM R 1319 34893 


EXPLANATION 


TEMENT NUMBER 
TAX ERAT 
SCRIPT EXPRESSTON ERR 


TS UNREFERCNCE) 


a 
es 
+ 

+ 


4) =14BA 


Jot Output 


11? 


FORTRAN [Tv VERnaMODnn 


nn/nn/nn PASE OL 























// READ DEVICE-4FCUL 
7/ PRINT DEVICE-5203 
7/7 OAD44 UNITNI-L4 
PROCESS MAP,LINKIT,LIS(R2)),NUSHRIJEF 
1 PRUGIAM AVG 
t THLS PROGRAM READS ANU AVERAGES NUMBERS. THE VI4SERS ARE READ 
c IN S21UPS JF EIGHTEEN FROM THE MFCUl. 
2 DEFINE FELE 14 ( ly lO, Fy KJ 
& IT ALSO WAITES THE AVERAGE IN UNIT 14 AND READS TP BACK FUR 
c PRINTING. 
3 DIMENSION NUMBS € 1000 ) 
c NUMAS 1S THE ARRAY INTO HICH THE NUMBERS ARE READ. 1000 NUMBERS 
t 13 THE MAXIMUM NUMBER JF NUMBERS THAT CAN 3E AVERAGED. 
4 Mord 
Bihan Soy, Noe 28 ao 
[ES Se) READE as bOg0s, END S90 tCNUMSSL ID, Tm A | 
7 Wa We 8 
8 N= N + 18 
9 60 TO LO 
t READING CONTINUES UNTIL END OF FILE. M 1S ONE GREATER THAN THE 
c NUMBER OF NUMSERS READ WHEN CONTROL TS TRANSFERRED TY 20, 
Lo 20424 -1 
ll SUM = 0. 
eS NP Oy 30 f = by 4 one 
a SUM = SUM + NUM8S(1) - =] 
14 3) CONTINUE 
15 AVG = SUM JM 
le WRITE ( 3, 2090 3 SUM, ave 
17 WRITE £ 14t1, 3000 ) SUM, AVG 
{ 18 ~_ READ _(_14*}, 3000 ) SUM) AVG 
19 WRITE (342000) SUMyAVG 
20 stop 
21 1000 FORMAT ( 13.14 ) 
22 200) FURMAT € * SUM DF NUMBERS = ',F8.3," AVERAGE = ',Fu.3 } 
23 3000 FORMAT { 2 €3.3 ) 
24 END 
NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DEC] HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 
NUMBS { 9360 JOST? 13UC 94876 K 1 1300 94877 M I 1311 04881 
N 1 1315 04885 I I 1319 04889 SUM R 1310 04893 
AVG R 1321 04897 








STATEMENT ALLOCATIONS 
3000 =141E 2000 =1444 1000 =1456 10 


Figure 18. Compiier Output Listing After Corrections 


Object Module Card Deck 


An object module card deck is produced consisting of the 
records described in Object Module, and the following: 


@ Adisk utility // COPY statement to instruct the system 
to insert the object module into a system library. This 


statement is the first card in the deck. 


@ A header card that contains the object module’s name. 
This statement follows the // COPY statement. 


® A disk utility // CEND statement following the records 
to indicate the end of the card deck. 
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=147TA 2u =14C3 30 


$a 


000 TOTAL EXRORS FOR THIS COMPILATION | 


=14FE 


Source Module Listing 


The source module listing in Figure 17 is labeled B . The 
source module listing prints FORTRAN source statements 
together with their corresponding ISNs (internal statement 
numbers) assigned by the compiler to all FORTRAN source 
statements except comments statements and continuation 
lines. 


Storage Map 


The storage map in Figure 17 is labeled . The storage 
map is a listing of each variable name used in the program, 
and such information as whether it describes an integer or 
real item, whether the item is in GLOBAL or COMMON, 
whether the item is undefined, and the storage address of 
the item, shown in both hexadecimal and decimal notation, 
Items in COMMON are listed first with storage addresses 
relative to the beginning of the COMMON area. Local 
variables (variables not in COMMON) are listed next, with 
storage addresses relative to the beginning of the local pro- 
gram area. The storage map appears on an output listing 
under the headings: 


NAME AT HEX1 DEC1 HEX2 DEC? 
(Headings appear three times per line.) 


where: 
NAME indicates the name of the variable. 


AT indicates the attributes of the variable. Attributes 
can be printed using three print positions. The first 
print position indicates whether the variable is integer 
(1), real (R), halfword (H), or doubleword (D). The 
second print position indicates whether it is in GLOBAL 
(G) or COMMON (C); if the item is a local variable, this 
position is left blank. The third print position identifies 
an undefined variable (U). 


HEX? indicates the address where a variable or array 
vegins, in hexadecimal. 


DEC1 indicates the same address in decimal. 


HEX2 is used with an array to indicate where the array 
ends; in hexadecimal. If the item is not an array this 
address is teft blank. 


DEC2 indicates the same address in decimal. 


The headings are repeated three times across an output 
listing page, so that each line of the map can describe three 
data items. The first data item described, NUMBS, is of 
type INTEGER (1), begins at location 877 (36D in hexa- 
decimal) and ends at location 4876 (130C in hexadecimal), 
NUMBS is a 4000-byte array. The data item SUM (the 

last item fisted) is of type REAL, and is located at address 
4893 (131D in hexadecimal). Because SUM is not an array 
no end address is shown. 


, 


LINKAGE EDITOR OUTPUT 
The link-editing step produces the following output: 
@ A load module 


@ A linkage editor listing of informative and diagnostic 
messages 


® Output determined by options 


Load Module 


The foad module is in the form of a series of records, each 
96 bytes long. There are four types of records in a load 


module: 

1. One header record 

2: A group of text records 

3. A group of relocation records 
4, One end record 


Header Record 


A header record defines the load module's reference name 
and start contro! address. The header record is identified 
by the character H in the first byte of the record. 


Text Records 

Text records contain the object code of the load moduie. 
Text records are identitied by the character T in che first 
byte of the record. Text records make up the bulk of foad 
module records. 


Relocation Records 


Relocation records contain information necded to make 
the load module relocatable in the event the module cannot 





be loaded at the start control address specified in tne bead: 





er record. Relocation records are identitied by tre char 
R in the first byte of the record 
End Record 


The end record defines the end of the joad module. ir), 
identified by the character E in the first byte of the secardi, 


=~ 


Job Output t 


Linkage Editor Output Listing 


Figure 19 illustrates link-editing output for the program 
shown in Figure 14. 


Messages 


Like compilation messages, linkage editor messages inform 
you of the status of the link edit step and whether any 
errors were encountercd. 


Inforiative messages in Figure 19 are labeled Gat the end 
of the link edit output listing. Overlay linkage editor mes- 
sages OL.100, OL101, and OL104 print out, respectively, 
the size of the program, its beginning address (start control 
address), and the number of disk sectors the load module 
requires in the iibrary. These messages are followed by a 
summary of OCL parameters that identify the load module. 


Diagnostic messages are in the form of halt codes that are 

displayed on the display unit. No halt codes are generated 
for the program iilustrated here. For a description of halt 
codes, see the appropriate halt guide listed under Related 

Publications in the Preface. 


Output from Options 


Linkage editor output can be produced by the compiler 
options GODECK and MAP. GODECK produces a card 
deck of the load module. To obtain the card deck, you 
must explicitly request GODECK at compile time, the 
default being NOGODECK. The MAP option causes the 
linkage editor to print a core usage map of the load module. 


Load Module Card Deck 


A load module card deck is produced consisting of the 
records described in Load Module aid the following: 


@ Adisk utility // COPY statement to instruct the system 
to insert the load module into a system library. This 


statement precedes the load module cards. 


® A disk utility // CEND statement to indicate the end 
of a card deck. 
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Core Usage Map 


The core usage map in Figure 19 is labeled . The map 
appears under the headings: 


START CATEGORY NAME AND CODE LENGTH 
ADDRESS ENTRY HEXADECIMAL DECIMAL 
where 


START ADDRESS indicates the beginning storage 
address of the area or routine, in hexadecimal notation. 
For example, the main routine AVG begins at location 
1300, and the FORTRAN library routine $FOEO at 
location 2868. 


CATEGORY indicates the priority value of each routine 
for remaining in main storage in an overlay environment 
(the lower the number the greater the priority). 


NAME AND ENTRY indicates the name of each area or 
routine, and, indented from the main entry point for 
each routine, other entry point names within the routine, 
For example, in addition to its main entry point, $FOEO 
contains other entry point names #MNTRY, #SNTRY, 
#RNTRY, and #0. 


CODE LENGTH indicates the length of each area or 
routine, in both hexadecimal and decimal notation. 


Job Output 


may 


OVERLAY LINKAGE EDITOR CORE USAGE MAP nn/nn/nn 


“ 





START CATEGORY NAME AND CODE LENGTH 
| ADDRESS ENTRY HEXADECIMAL DECIMAL 
1300 255 AVG 1568 5430 
2858 4#UNITB 
1600 #ERBUF 
1538 410BUF 
2868 9 $FOEO 0193 493 
2905 H#MNTRY 
299A 4SNTRY 
2909 HRNTRY 
2359 #D 
29FB 3 $FOBL 0062 98 
2A2C #DED4 
2A40 #0EDZ9 
2A50 3 $FOLO QOFS 245 
2AF4 #ELST 
2B09 HELST2 
2AES #DERR 
2AD3 #LOENT 
ZABF #10C9M 
2BIC #ENDEQ 
2313 #ERREY 
2B24 KOUT3L 
281A #INT3L 
2330 #109293 
2831 #FLRO2 
2852 a $FOVG 000C 12 
2850 #ADR90T 
2858 #RLIST 
2B5E J $FOVdA 9010 15 
2860 #DLIST 
2B6E 2 $FOL6 0173 371 
2063 HFOIGA 
2C4B #FOL5B 
2CEL 2 $$DAU8 0638 194 
2049 2 $$SROA 9099 153 
20E2 2 $$SROI 0038 59 
: 2EOL DMSRPD 
2DFA DMSRROD 
2ELA 2 $$SRRC 0078 123 
2E95 2 $$SRRI 292) 41 
ZEBE 2 $$SRMD 0081 129 
i 2F3F 2 $$SRTC VO1C 28 
JERE OMSRLO 
2-50 DMSRTC 
2F53 OMSRER 
2F5B 4 $FOE3 0028 40 
| 2F62 #XLI 
2F68 #XST 
| 2F6F #XA 
\ 2F 76 #XML I 
\ 2FIC #XMST 
\ 2F 83 4 $FOE6 OOLC 28 
i 2°98 43ST 


Figure 1% (Part 1 of 2). Linkage Editor Output Listing 
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START 


ADDRESS 


2F8A 
2F 91 
2F9F 
2FA2 
2F33 
2FCC 
2FCF 
2F3E 
2FCLl 
300F 
390F3 
3LA3 
3177 
3121 
3104 
3257 
32EF 
32FE 
3350 
33565 
3366 
337) 
3473 
3473 
33F3 
3435 
3444 
3573 
376F 
3779 
3A03 
3A51 
3A59 
3A86 
3A3D 
3342 
3353 
3C62 
3EL1 
3E95 
3ECC 
3F38 
3F62 
405) 
4063 
4114 
4141 
4163 
4L9F 
41338 
4254 
42C1 
43ED 


OL1V0 
ol OLLOL 
OL104 


I 
1 
I 


CATEGSIRY 


4 


4 


+ 


+ 


Aww 


ViVi Vi 


Wi 


oO 


Nearne 


THE TITAL CORE JSE) 8Y AVG 
THE START CONTROL ADDRESS 


NAME AND 
ENTRY 


#BA 
HA3S 
SFOEA 
ARL 
42st 
#RAD 
HRA 
#RSO 
#RS 
#27) 
$F Oe) 
HIJJEND 
#)IBR 
HOBGN3 
SFOER 
$FOCH 
$SFOVE 
#HFL IAT 
$SFOEC 
#R FLW 
#RJdFla 
FOB 
#FRET 
HFI3A2A 
#FJB23 
#FIO32C 
$F OC2 
$FIC4 
$FOC5S 
H#FSVITE 
$FOBS8 
$FOR9 
SFOBA 
$FIOCF 
AF OCF3 
$FOCH 
#FOCH3 
$FOCG 
#ODIVIUD 
#AMULT 
SFOIC 
SERTST 
S$$LPRT 
$FOT3 
HAFUT34 
#FIJI3 
SFOLL 
AFIJELA 
SFP 
$FIIB 
$F0388 
$FODT 
SBSMFROD 


CIC LENGTH 


J154 


JOEL 


J083 
J0983 
JVI61 


JI29 


J1L34 


JOCE 
JLFC 
J294 


JO4E 
JI13 
JILV 
IIAC 


JL20 


J?6A 


9096 


JIE S 
JOIES 


JIL 
JIIC 
JVI6) 
OL2c 
OL45 


HEXADECT4AL JECT MAL 


349 


131 
152 
97 


393 


207 
593 
660 


13 
24 
29 
188 


233 


15 9 


251 
228 


24 


25 
156 
103 
300 
329) 


[IS 12359 DECIMAL 


QF THIS MODULE 


I> 1300. 


TOTAL NUMBER OF LIBRARY SECTORS REQUIRED IS 53 


NAME-AVG 


»PACK-R1IRIR1,UNIT-R2,RETAIN-T,LIBRARY-O. 


Figure 19 (Part 2 of 2). Linkage Editor Output Listing 


Job Output 
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LOAD MODULE OUTPUT 
Output from the load module step can be the following: 
@ Informative and diagnostic messages 


@ Printed output results generated by the FORTRAN 
program 


Figure 20 illustrates load module output for the program 
shown in Figure 14. 


Messages 


The output ijisting for a load module step begins with a list 
of OCL load module statements, labeled in Figure 20. 


Load module diagnostic messages are hait codes displayed 
on the display unit rather than on an output listing. Two 
hait codes are associated with FORTRAN load module 
processing: 6 to indicate that a PAUSE or STOP state- 
ment was executed, and 7 to indicate that an execution 
error occurred., On the Model 6, these halts are displayed 
as follows: #6 as 4 and #7 as 13. 


When a B6 halt code occurs as a result of a PAUSE state- 
ment, you can either continue processing (by responding 
with a 0 option}, or terminate processing (by responding 
with a 2 or 3 option). 


When a #7 halt code occurs, you must terminate processing 
{by responding with a 2 or 3 option). Halt code 67 has 
several secondary halt codes that identify the cause of the 
error. 


For procedures concerning responding to halts, and a 
description of secondary halts, see the appropriate Halt 
Guide--as listed in the Preface under Related Publications. 


Figure 21 shows the options possible for PAUSE statements, 
STOP statements, and execution error halts. 


7/7 WIAD 
jas 


Jf RIN 


AVGyR? 


lt 


L71.2000 AVERAGE 


SUM JF NUMBERS L7L.900 AVERAGE 


Mt 


o SUM OF NUMBERS 


Figure 20. Load Module Output 
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Program Output 


Output from execution of the FORTRAN program is 
labeled in Figure 20. This output indicates the sum and 
the average of the numbers read. It appears in duplicate 

as a result of two executions of the WRITE statement, one 
from computations made in storage, the other from reading 
the results back in from direct access file number 14. 


Using the FORTRAN Traceback Listing 


{f an execution error occurs in a program containing a 
number of program units, the traceback facility can be used 
to locate the program unit where the error occurred. To 
illustrate how the traceback facility can be used, refer to the 
program shown in Figure 22. Part 1 of this figure shows 
compiler output for the subroutines X and Y. Part 2 shows 
compiler output for the main program unit ##MAIN. 


These program units perform the following operations: 


@ ##MAIN twice passes a value to subroutine X, in the 
variable A. The first time passed, A has the value 4; the 
second time, the value 1. 


@ Subroutine X accepts the value in its variable J. X 
then subtracts 1 from the value, calls subroutine Y, and 
upon return from Y again subtracts 1 and calls Y. 


@ Subroutine Y uses the value in J as a logical unit number 
ina WRITE statement to print out a message. 


FILE UNIT-F2yPACK-54440) 9 TRACKS- 22 ¢RETAIN-Sy NAME-FTQVOL4,LASEL-MYF ILE 


9.59) 
9.500 


Part 3 of Figure 22 shows the traceback listing resulting 
from an execution error in this program. The traceback 
listing contains the following information: 


ROUTINE indicates the name of the routine. The name 
shown at the top of the list identifies the routine that 
was executing when the error occurred. The name 
immediately below that identifies the routine calling 
the top listed routine, and below that, are listed the 
other calling routines. 


ISN specifies the internal statement number in the 


routine that called the routine listed. For example, sub- 
routine Y was called by ISN 5 in subroutine X. 


XR1, XR2, and ARR specify the contents of index 
register 1, index register 2, and the address recall register, 
respectively. This information is useful to the IBM 
customer engineer if he must service the system. 
The traceback listing in Figure 22 tells a number of things: 
® Subroutine Y was executing when the error occurred. 


@ Subroutine Y was called by ISN 5 in Subroutine X. 


® Subroutine X in turn was called by ISN 3in ##MAIN. 


ISN 3 in ##MAIN is the first call to X, when A has the value 
4. ISN 5 in X is the second call to Y, after X has subtracted 
the value of J a second time. (The first call resulted in print- 
ing the message shown before the traceback listing.) Thus, 
J has the value 2 when Y is called in ISN 5. Since Y uses 
Jas a logical unit number, the error is that the number 2 

has not been assigned to an output device. (No error occur- 
red when J has the value 3 because 3 is assigned to a printer 
by default.) 


Obtaining a Traceback Listing 
To obtain a traceback listing, do the following: 


Ae Specify GOSTMT in the *PROCESS statement for 
each program unit to be traced. (If GOSTMT is not 
specified for a program unit, internal statement 
numbers in that unit are not displayed.) 


Ds If an error occurs, the character 7 (from the halt code 
7) appears on the display unit. Respond with option 
Q to get the secondary halt. (The error in Figure 22 
would cause secondary halt code 10 to appear.) 
Respond with option 2. This causes FORTRAN to 
terminate job execution and print out the traceback 
listing. 











Halt 
Model 6 | Models 10 | Model 15 Options 
and 12 
PAUSE n 4 46 66 0 Continue processing. 
2 Have FORTRAN cance! the 
program. 
STOP n 4 66 6 2 Have FORTRAN cancel the 
program. 
| 3 Have system cancel the 
program. 
Execution 13 67 ‘7 2 Have FORTRAN cancet the 
error program. 





Figure 21. Possible Options for PAUSE, STOP, and Execution Errors 


3 Have system cancel the 
program. 





N 
ea 


dob Ourput 1 


// CALL FORTRN,FL 

XX LOAD $FORT,FL 

XX FILE NAME-$WORK,UNIT-R1yPACK-RURLRL,TRACKS~20,RETAIN-S 
XX FILE NAME-$SOURCEsUNIT~R21»,PACK-RURIURL»TRACKS—20,RETAIN-S 


// RUN 
FORTRAN IV VERnn/MODnn nn/nn/nn PAGE OGL 
*PROCESS MAP,GOSTMT 
1 : SUBROUTINE X(J) 
2 2 J=J-L 
3 3 CALL Y(J) 
4 J=J-1 
5 5 CALL Y(J) 
6 RETURN 
" END 


NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 
J L 0006 00006 


// CALL FORTRN,FIL 

XX LOAD $FORT,FL 

XX FILE NAME~$WORK,UNIT-R1,PACK-RLRUR1yTRACKS-20,RETAIN-S 
XX FILE NAME-$SOURCE,UNIT-R1yPACK-RLURIRL, TRACKS—~20,RETAIN~S 
// RUN 


FORTRAN IV VERnn/MODnn nn/nn/nn PAGE 001 


*PROCESS MAP,GOSTMT 


1 SUBROUTINE Y(J) 

2 2 WRITE(JS,100) 

3 100 FORMAT (' IN SUBROUTINE Y') 
4 RETURN 

5 END 


NAME AT HEX DECI HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 
J 1 0006 00006 


Figure 22 (Part 1 of 3). Traceback Example 
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7/ CALL FORTRNyFL 

XX LOAD $FORT+FL 

XX FILE NAME-$WORK;,UNIT—R1,PACK-RIRLRL,TRACKS~20,RETAIN-S 
XX FILE NAME-~$SOURCE;,UNIT-R1,PACK-RIRIRL,TRACKS—~20,RETAIN-S 
// RUN 


FORTRAN IV VERnn/MODnn nn/nn/nn PAGE OOL 


*PROCESS MAP,GOSTMT 

1 INTEGER A 
A=4 
CALL X(A) 
A=1 
CALL X(A) 
STOP 
END 


NOWHWNM 


NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 NAME AT HEXL DECL HEX2 DEC2 
A I 0185 00389 


000 TOTAL ERRORS FOR THIS COMPILATION 


Figure 22 (Part 2 of 3). Traceback Example 


// LOAD ##MAIN,FL 
// RUN 


IN SUBROUTINE Y 


TRACEBACK FOLLOWS ROUTINE ISN XR XR2 ARR 
¥ 00005 1504 L6B7 1705 
x 00003 1504 L4CF L4E7 
##MAIN 


Figure 22 (Part 3 of 3). Traceback Example 
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This section contains: 

@ Direct-access programming considerations 

@ Sequential disk and tape programming considerations 
@ FORTRAN implementation considerations 


@ System considerations 


Part 3. Programming Considerations 


Programming Considerations 
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in FORTRAN, the two types of input/output (I/O) 
operations supported for direct-access files are formatted 
and unformatted. 


The record length for a direct-access file is specified in the 
DEFINE FILE statement. The block length is specified by 
the BLOCKSIZE parameter in the DEVICE OPTIONS 
statement. 


Formatted I/O 


Formatted I/O has a FORMAT statement associated with 
the READ or WRITE statement that is used to access the 
data in the file. The amount of data to be transferred for 
a formatted READ or WRITE statement is determined by 
the format codes in the FORMAT statement and the 
number of variables in the I/O list. 


The FORMAT statement used to contro! the reading or 
writing must not specify more characters (bytes) than 
there are in a record. 


For example, to process a file described by the statement: 
DEFINE FILE 8(10,48,L,K8) 


the FORMAT statement used to control reading or writing 
could not specify more than 48 bytes of data. 


The following are valid FORMAT statements: 


FORMAT(4F 12.1) 
FORMAT(I10,9F4.2) 


The following are invalid FORMAT statements: 


FORMAT (6F 10.2) 
FORMAT(I10,4F 12.2) 


The 1/O list for a READ or WRITE statement must always 
be satisfied. That is, if there are more variables in the I/O 
list than there are format codes, the FORMAT statement 
will be reused. When reused, a new record will be 


transferred. This will continue until the I/O list is satisfied. 
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If the amount of data to be written is less than the record 
length, the record is padded on the right with blanks. 


Unformatted I/O 


Unformatted !/O has no FORMAT statement associated 

with the READ or WRITE statement that is used to 

access the data in the file. The amount of data to be 
transferred for an unformatted READ or WRITE 

statement is determined by the number and type of 

variables in the t/O list. There is a one-to-one correspondence 
between internal storage locations (bytes) and external 
record positions. 


The 1/O list for a READ or WRITE statement must always 
be satisfied. If the amount of data specified in the |/O 

list exceeds the record length, more than one record 

will be read or written, enough to satisfy the I/O list. 


If the amount of data to be written is less than the 
record length, the record is padded on the right with 
binary zeros. 


SHARING THE ASSOCIATED VARIABLE BETWEEN 
PROGRAMS 


Programs can share an associated variable as a COMMON 
or GLOBAL variable. The following example shows how 
this can be accomplished: 


COMMON IUAR SUBROUTINE SUBI(A,B) 
DEFINE FILE 8(100,10, COMMON IUAR 
L,IUAR) 

ITEMP=I1UAR 


CALL SUBI (ANS,ARG) 
4 1F (IUAR-ITEMP) 20,16,20 


In this example, the program and the subprogram share 
the associated variable IUAR. An input/output operation 
that refers to logical unit 8 and is performed in the sub- 
routine changes the value of the associated variable. The 
associated variable is then tested in the main program in 
statement 4. 
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An associated variable can also be passed to a subprogram 
as an argument ina CALL statement. However, ina 
subprogram the dummy variable is not automatically 
updated unless it is passed to the subprogram via COMMON 
or GLOBAL and not through the argument list. If the 
variable is to be passed through the argument list, you 

must update it yourself with FORTRAN statements. 


MINIMIZING DIRECT-ACCESS I/O TIME 


You can decrease I/O time by processing a direct-access 
file consecutively. Consecutive processing of a direct- 
access file occurs when the relative record number is 
increased by one each time the file is accessed. This can be 
done by using the associated variable in the DEFINE FILE 


statement as the relative record number in the 1/O statement. 


Example: 


DEFINE FILE 10(100,64,L,1) 


1=1 
5 READ(10’I)IRAY 


. 


GOTO5 


The associated variable (1) in the DEFINE FILE statement 
is initially set to 1 by an assignment statement (1=1). It is 
also used as the relative record number in the READ 
Statement. After the READ statement is executed, the 
associated variable is automatically updated by FORTRAN 
to point to the next record. Thus, as the loop is executed a 
number of times, the file is processed consecutively. 


Consecutive processing of a direct-access file can also be 
done by updating the relative record number by one each 
time the file is accessed. 


Example: 
DEFINE FILE 10(100,64,L,1) 
1=1 
J=1 


5 READ(10‘J)IRAY 


J=J+1 
GO TO5 
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if a direct-access file is processed consecutively, you can 
further decrease I/O time by specifying two buffers and a 
blocksize as large as possible without exceeding the amount 
of main storage available for buffers in the load mudule’s 
environment. (Remember that the main storege needed for 
buffers is doubled when two buffers are specified.) See 
Buffer Assignment for Direct-Access Files. 


When BLOCKSIZE and BUFFERS are used, the program 
must be in the NOSHRBUFF environment. This can be 
specified in the *PROCESS statement. (NOSHRBUFF is a 
default option in the *PROCESS statement.) 


Note: \f a file is being processed randomly, !/O time might 
be increased when BLOCKSIZE and BUFFERS are used. 


BUFFER ASSIGNMENT FOR DIRECT-ACCESS FILES 


The system accesses records from a direct-access file only in 
256-byte segments to correspond with the arrangement of 
disk storage into 256-byte sectors. The size of the buffer 
allocated to a file must be an exact multiple of 256, and 

is determined by the blocksize specified in the DEVICE 
OPTIONS statement. If the BLOCKSIZE parameter is not 
specified, the record length from the DEFINE FILE 
statement is used to calculate the size of the buffer. 


The following rules apply when buffer space is being 
allocated: 


4: If the block length (or record length) is a submultiple 
of 256, a 256-byte buffer is allocated. 


2 If the block length (or record length) is a multiple of 
256, the buffer size is equal to the block length (or 
record length). 


3. If the block length (or record length) is neither a 
multiple nor submultiple of 256, the buffer size is 
determined as: block length (or record length) + 255 
raised to the next higher multiple of 256. 


If the file’s DEVICE OPTIONS statement specifies BUFFERS-2, 
the buffer size is doubled before it is allocated. 


The following examples illustrate these rules: 


Example 17: 


// DAD44 UNITNO-10 


DEFINE FILE 10(100,64,L,1) 


In this case, BLOCKSIZE is not specified, so the record 
length (64) from the DEFINE FILE statement is used to 
calculate the size of the buffer. The records are stored on 
disk as follows: 






~—— Sector 1— ~«————~ Sector 2 -——-+} + Sector 3 


Rec} Rec] Rec! Rec! Rec 
1 2 3 4 5 


O 64 128 192 256 326 384 448 512 574 638 704 768 





The record size is a submultiple of 256. Therefore, a 
buffer size of 256 is allocated. 
Example 2: 


// DAD44 UNITNO-~-12,BLOCKSIZE-768 
DEFINE FILE 12(200.64,1.,1) 


In this case, the BLOCKSIZE is specified as 768. The 
records are stored the same as in the previous examole. 


The block length is a multiple of 256. Therefore, the 
length allocated for the buffer is the block length. In this 
case, FORTRAN accesses 12 records with each physical 
1/0 operation (if the file is being processed consecutively). 


Example 3: 


// DAD44 UNITNO- 4 
DEFINE FILE 14(50,96,L,1) 


In this case, BLOCKSIZE is not specified, so the record 
length (96) from the DEFINE FILE statement is used to 
calculate the size of the buffer. The records are stored on 
disk as follows: 


Sector 1 
Rec R 
1 
0 96 


192 256 268 384 480 512 576 672 768 
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Record 3 straddles two sectors. In order to process this 
record, a buffer of 512 must be allocated, using the rule: 


Record length (96) +255 (=351) raised to the next mul- 
tiple of 256 (512). Two sectors are loaded into each 
buffer. 


When the buffer is !oaded with sectors 1 and 2, it contains 
the following records: 


—_—_—_—_—- Buffer ——___—__-—+ 512 


| Rec 1 Rec2} Rec3 | Rec4 | Rec5 | Rec6 
(partial) 


Records 1 through 5 can be processed. When record 6 is to 
be processed, the second and third sectors are placed into 
the buffer, as follows: 





512 


0+ Bu ffer —-__—5 


Rec3 | Rec4 | Rec5 ! Rec6 { Rec7 | Rec8 
(partial) 


256 288 384 


Record 6 can now be processed, as can records 7 and 8. 
When record 9 is to be processed, the appropriate sectors 
are placed into the buffer. 


Sharing Buffers 


Direct-access files on disk drives can share a buffer. The 
size of the buffer is equal to the maximum block size 
computed. For example, if the three files shown in the 
preceding examples were to share a buffer, the |/O buffer 
size would be allocated as 768 bytes, the size of the largest 
buffer needed. 


Buffers cannot be shared with a file that has BUFFERS-2 
specified in the device option statement, or EXTBUF 
specified in the “PROCESS statement. For best perfor- 
mance, buffers should not be shared with a file that has 
BLOCKSIZE larger than 256 specified (or defaulted) on 
the associated device option statement. 
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File Share (Program Number 5704-FO2 Only) 


Direct-access files on disk drives can be shared with another 
task or partition at execution time by using system control 
programming (SCP) statements. File share causes direct- 
access files with double buffers to default to single buffer 
status during execution. The SCP default parameter for 

// FILE statements is SHARE-YES. Therefore, it is neccs- 
sary to specify SHARE-NO if double buffering is ‘zed 
during program execution. 


Example: 


// CALL FORTRN,F1 

// RUN 

// DAD44 UNITNO-15,BUFFERS-2 

FORTRAN source program 

/* 

// LOAD ##MAIN,F1 

// FILE NAME-FT00015,PACK-654321,UNIT-R1, 
RETAIN-T, 

// RECORDS-800,SHARE-NO 

// RUN 

Program data 

P 


For further information, see the appropriate System 
Control Programming Reference Manual listed under 
Related Publications in the Preface. 
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In FORTRAN, the two types of record formats supported 
for sequential disk and tape files are fixed-length and 
variable-length. Fixed-length records are transferred for 
formatted or list-directed input/ouput (1/0). Variable- 
length records are transferred for unformatted |/O. 


The record length is defined by the BLOCKSIZE parameter 
on the DEVICE OPTIONS statement. This value is used 

as the record length in the volume table of contents 
{VTOC) for disk files and the header label for tape files 
When FORTRAN sequential files are being accessed, 

this value must be used in other programming languages 

as the record length. 


FORMATTED OR LIST ~- DIRECTED 1/O 


The amount of data to be transferred for a formatted READ 
or WRITE statement is determined by the format codes in 
the FORMAT statement and the number of variables in the 
i/O \ist. For list-directed t/O, the amount is determined by 
the type and number of variables in the I/O list. 


For a READ statement, if the amount of data to be read 
exceeds the record length, multiple records will be read 
(enough to satisfy the I/O list). if the amount of data 
to be read is less than the record length, the remaining 
data in the record is skipped. 


For a WRITE statement, if the amount of data to be 
written exceeds the record length, multiple records will 
be written (enough to satisfy the I/O list). Data from 
a variable will never span a record. If the data from a 
variable does not fit at the end of a record, it will be 
the first data placed in the next record. If the amount 
of data to be written is less than the record length, the 
record will be padded on the right with blanks. 


Example: 


// SEQ44 UNIT NO-10, BLOCKSIZE-32 


DIMENSION IRAY (6) 


WRITE (10,20) IRAY 
20 FORMAT (615) 


————_—____—_———- Record Length —--—_____--_—- 
[RAY (1) —— IRAY (6) Blanks 

~—_———_——- 30 ayes} « Bytes > 
——<$§$§{[_—______——- 32 By tes 


The BLOCKSIZE parameter specifies a record length of 
32 bytes. The FORMAT statements specify 30 bytes 
(six fields, each 5 bytes long). The 1/O list has six 
variables (six elements of array IRAY). If the amount 
of data to be written is 30 bytes, which is less than 

the record length of 32 bytes, the record is then padded 
with 2 bytes of blanks. 


UNFORMATTED 1/0 


A record is made up of a 4-byte record descriptor, 
a 4-byte segment descriptor, and a data segment. 


<<. Record Length een 


Data 


Record Segment 
Descriptor Descriptor aie 
~<«— 4 Bytes Sl a 4 Bytes >| 
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The format of the record descriptor is: 


Beaks ron 
~<«—-?2 eyte—$—a fe —— 2 Bytes—————»> 


where 
record length is the value given in the 
BLOCKSIZE parameter. The record 
length is stored as a binary value. 





reserved is filled with binary zeroes. 


The format of the segment descriptor is: 


— ce 
—<—————_2 Bytes—>fe—1 Byte—>t—1 Byte—» 


where 
segment length is the length in binary of the 
segment of data plus the 4 bytes of the 
segment descriptor. 





code is used to indicate the position of 
this segment with respect to the other 
segments, if any, of the FORTRAN record. 


Code Meaning 

00 The only segment in the record. 

01 The first segment of a 
multisegment record. 

02 The last segment of a 
multisegment record. 

03 Neither first nor last segment 


of a muitisegment record. 


reserved is filled with binary zeroes. 


The amount of data to be transferred for each unformatted 
READ or WRITE statement is determined by the number 
and type of variables in the !/O list. The data can be 
recorded in one or more segments. 
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For a READ statement, if the amount of data to be read 
exceeds the data in a segment, multiple segments will 

be read. Whether the record has a single segment or 
multisegments, the amount of data to be read in a 

single READ statement must never exceed the amount 
of data previously written into a record. If the 

amount of data to be read is less than the amount 
previously written, the remaining data in that segment 
and any other segments of a multisegment record are 
skipped. 


For a WRITE statement, if the amount of data to 
be written exceeds the record length minus 8 (the 
length of the descriptors), multiple segments will be 
written (enough to satisfy the I/O list). Data from a 
variable will never span a record. If the data from a 
variable does not fit at the end of a segment, it will 
be the first data placed in the next segment for that 
record. 


If the amount of data to be written is less than the 
record length minus 8 (the length of descriptors), 


the segment will be padded on the right with binary 
zeroes. 


Example: 


// SEQ44 UNIT NO-10 BLOCKSIZE-32 


INTEGER*2 12 
DIMENSION IRAY(8) 


WRITE (10) 12, IRAY 
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Record Length 
~«e— Record on First Segment of Data 

ee as Descriptor 

00200000 001A 0100 IRAY(1) IRAY(5) 0000 
—~<«—4 oe 4 aytes—obaa oveo{« 0 Bytes ———+la2 Bytes 


32 Bytes 

















Record Length———=— _a_aiiim 


mac ecord Segment Last Segment of Data 
Descriptor Descriptor 
~—~<=—4 Bytes 4 Bytes 12 evo Bytes —————>- 


32 Bytes A$ i _ ____  —_'>n 








The BLOCKSIZE parameter specified a record length of 
32 bytes. The amount of data to be transferred is 34 
bytes: one variable 2 bytes long (12 is integer *2) and 
eight variables 4 bytes long (8 elements of array [RAY). 
The amount of data that can be placed in a segment is 
24 bytes (32 minus 8 bytes of descriptor). Thus, more 
than one segment must be written to satisfy the I/O list. 
Variable IRAY (6) will not fit in the 2 bytes at the end 
of the first 4 bytes of the next segment. 


The record descriptor for both segments indicate a length 
of 32 (X’20'). The segment descriptor for the first 
segment indicates a length of 26 (X‘1A’); (22 bytes of 
data pilus 4 bytes of descriptor and a code of X‘01’ which 
indicates the first segment of a multisegment record). The 
length in the next segment descriptor is 16 (X‘10‘); 12 
bytes of data plus 4 bytes of descriptor). The code X‘02’ 
indicates the last segment of a multisegment record. 
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BUFFER ASSIGNMENT FOR SEQUENTIAL FILES 


The size of the buffer allocated for a tape file is either the 
value given on the BLOCKSIZE parameter of the TAPE 
DEVICE OPTIONS statement or 128, whichever is larger. 
The buffer will contain only one record at a time. 


The size of the buffer allocated for a disk file is always 
256 bytes (the size of a disk sector). The buffer can 
contain from 1 to 16 records, depending on the record 
length. To keep records from spanning sectors, the 
record length must be 256 or one of the following 
submultiples: 128, 64, 32, or 16. 


To minimize i/O time and make the most efficient use 
of disk space, the record length should be the smallest 
submultiple. This value can be calculated as follows: 


@ Formatted //O: Add the lengths given in the FORMAT 
statement for the number of variables in the 1/O list. 


® List-Directed 1/O: Add the lengths needed for the 
variables in the I/O list. The length needed for each 
type of variable is described in Chapter 5 under List- 
Directed Output Data. 


©@ Unformatted 1/0: Add the lengths of the variables 
in the I/O list. To this total, add 8 (descriptor bytes). 


RESTRICTIONS ON THE ORDER OF SEQUENTIAL 
1/0 OPERATIONS 


1. A READ request cannot follow a WRITE or END 
FILE request on the same file. 


2. A WRITE request cannot follow an END FILE 
request on the same file. 


3. An END FILE request cannot immediately follow 
another END FILE request on the same file. 
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MODEL 15 MULTIFILE TAPE PROCESSING 


Multiple files per tape volume are supported only by Model 
15 FORTRAN. The file sequence number is specified on 
the FILE statement at execution time. A further 
description can be found in the /BM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077. 


TAPE PROCESSING IN PROGRAMS USING OVERLAYS 


Tape data management is overlay category 3, and the 
FORTRAN 1/0 interface modules for sequential disk and 
tape are overlay category 2. This can cause problems for 
large programs that are forced into overlays when using 
tape 1/O. In such cases, a separate link step should be 
performed with a linkage editor control statement changing 
the tape data management to category 2. The section 
describing Linkage Editor Control Statements includes the 
following category override statement: 


// CATEGORY NAME-$$BTAM,VALUE-2 


Directing Program Output to Both a Printer and a Card 
Punch 


If program output is to be both punched and printed, use 
two WRITE statements with the appropriate logical unit 
number assignments, and include both a PUNCH and a 
PRINT device option statement in the job stream. 


Example: 


// PRINT DEVICE-5471 
// PUNCH DEVICE-1442 


WRITE(5,10)J,K 
WRITE(9,11)J,K 
10 FORMAT(‘0’,110,5X,15) 
11. FORMAT(I10,5X,15) 


The example states that the variables J and K are to be 
printed on the device assigned logical unit number 5 (the 
5471 printer/keyboard) and punched on the device 
assigned jogical unit number 9 (the 1442 card read punch). 
The only difference between the two FORMAT statements 
is that statement 10 specifies in its first position the 
carriage control character needed for printing operations. 


DEBUG Facility Considerations 


When specifying SUBCHK or INIT to display array values, 
keep the following in mind: 


®@ The INIT option displays both the array subscript and 
the array element value. 


@ The SUBCHK option displays only an invalid array 
subscript. 


@ The element number displayed is shown displaced from 
location 0 in the array. In other words, the first element 
would show beginning at location 0. 


@ The subscript number displayed is shown displaced from 
location 0 in bytes, not in words. For an array typed as 
length 4, the first subscript would show beginning at 
location 0, the second at location 4, the third at location 
8, etc. Arrays typed as length 2 would be displaced by 
multiples of 2; elements typed as length 8, by multiples 
of 8. 


For an example, refer to Figure 23. Part 1 of Figure 23 
shows the compiler output for a program that tests certain 
elements of the array (-1, 0, 1, 10, and 11) using debug 
options SUBCHK and INIT. Part 2 of Figure 23 shows the 
debug output after program execution. Ignore for the 
moment the first four items displaying unusual subscript 
values in parentheses. The fifth through eighth items show 
the subscript as a displacement from 0. 1A is an INTEGER+4 
array (by default); thus, the tenth element is shown 
beginning at location 36 (IA{00036)=10); the eleventh 
element is shown beginning at location 40 (IA(00040)=11):; 
because this element is beyond the range of the ten element 
array IA, it is flagged by SUBCHK. 


Refer to the first four items, The unusual subscripts are 
displayed of an attempt to display subscripts occurring 
before the beginning of the array (-1 and 0). To identify 
the subscript that was meant to be displayed, use the 
following formula: 


V/L+1+N=subscript value 
where 
V is the value shown enclosed in parentheses. 


L is the length of the item being tested. L can have the 
value 2, 4, or 8. 


N is the number 82768 if L is 2, 16384 if L is 4, or 8192 
if Lis 8. 


Using this formula to identify the first value, SUBCHK 
1A(65528): 


V=65528 

L=4 (default length of array IA) 
N=16384 

65528=4=16382+ 1=16383-16384=-1 


Note: Because SUBCHK and INIT display only the last 
two bytes, a subscript value displayed may be part of a 
larger number; in this case, the subscript can be identified 
by adding, rather than subtracting, N. 
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FORTRAN XV VERnn/MODnn nn/nn/nn PAGE OOL 


7/7 PRINT DEVICE-5203 


1 DIMENSION A(10),1A(10),8(10) 
2 t=-] 

3 TACT) =E 

4 I=0 

5 TAtt)=1 

6 =1 

7 FAUT)= 

8 r=10 

3 TACCd=T 

lo f=11 

ll TACT) =1 

12 STOP 

13 DEBUG SUBCHK,ENIT{(IA) 
14 END 


909 TOTAL ERRORS FOR THIS COMPILATION 


Figure 23 (Part 1 of 2). Debug Display 


7/ LOAD #AMAIN, 22 


7/ RUN 
~DEBUG~ SUBCHK {4(65528% 
~DEBUG-ENIT TA(6552A8)= 1 
~JEBUG— SUBCHK 14(65532) 
—-DEBUG- INIT TA(65532)= oO 
~JEBUG-INIT TA O0000}= 1 
~DEBUG-INIT TA(00036)5 lu 
~VDES3UG~ SUBCHK TA19094 9) 
~JEBUG-INIT TA10004))= Ll 


Figure 23 (Part 2 of 2). Debug Display 


Assigning Names to User-Supplied Subprograms 


Care should be used in naming user-supplied subprograms. 
When a subprogram is compiled, it is stored in the program 
pack library, which also contains the FORTRAN library. 
User-supplied subprograms having the same name as 
FORTRAN-supplied subprograms cause the FORTRAN 
subprograms to be overlaid. 


{f FORTRAN subprograms are overlaid, you can restore the 
library by reperforming program product generation, as 
described in the applicable system generation reference 
manual. Refer to Related Publications for the order 
number, 
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Wherever possible, assign unique names, that is, names that 
do not duplicate FORTRAN subprogram names. Figure 24 
tists the names of FORTRAN-supplied functions and 
commercial subroutines. Before assigning names to sub- 
programs, consult this list for possible duplicate names. 


If it is necessary to give a subprogram the same name as a 
FORTRAN-supplied subprogram, include the OBJECT 
compiler option to store the subprogram object module 
into a different library. 


The following is an example: 
At compilation time: 


// LOAD $FORT,F1 

// FILE NAME-$WORK, etc. 

// FILE NAME-$SOURCE, etc. 
// RUN 

PROCESS OBJECT(T,LIB(R2)) 
subprogram SORT 


/* 


The compiler is called from F1. Ordinarily, object modules 
would be stored in the library on F1; however, the 
OBJECT compiler option on the *PROCESS statement 
directs the user-supplied subprogram SORT to the library 
on R2. 


At load module execution time, retrieve the module from 
the library by using the UPACK parameter on a linkage 
editor OPTIONS control statement. 


At execution time: 


// LOAD $OLINK,F1 

// FILE NAME-$SOURCE, etc. 

// FILE NAME-$WORK, etc. 

// RUN 

// INCLUDE NAME-MAIN,UNIT-F1 
// OPTIONS UPACK-R2 

// END 

// LOAD MAIN,F1 

/1 RUN 


Assume that the main program (MAIN) has just been 
compiled, with the NOLINK and OBJECT(T,LIB[F1]) 
options. The linkage editor is called from F1. The 
INCLUDE statement specifies the module to be link edited 
(MAIN) is located on F1. The OPTIONS statement specifies 
that the user-supplied subprogram (SQRT) is located on R2. 


For Model 12 and 15, the location of the user supplied 
subprogram (SQRT) may be specified by using the UPACK 
option on the "PROCESS statement when compiling the 
main program (MAIN). 


Example: 


// LOAD $FORT,F1 

// FILE NAME-$WORK,etc. 

// FILE NAME-$SOURCE,etc. 

// RUN 

“PROCESS UPACK-R2 
PROGRAM MAIN 


Ve 


The compiler is called from F1. Ordinarily, the object 
modules of subprograms needed by the main program 
(MAIN) would be stored in the library on F1; however, 
the UPACK option on the *PROCESS statement directs 
the linkage editor to search the library on R2 first, 
looking for the subprogram SORT. 
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AIDEC 
ADD 
ALOG 
ALOG10 
CFTOD 
cos 


DATSW 
DCOS 
DECA1 
DEXP 
DIV 
DLOG 
DLOG10 
DMOD 
DPACK 
DSIN 
DSQRT 
DTANH 


DUMP 
DUNPK 
DVCHK 


EDIT 
EXIT 
EXP 


FCTST 
FILL 


GET 
IBTST 
1COMP 
INQCHK 
I2OR4 


KEYBD 


LCOMP 


MOD 
MOVE 
MPY 


NCOMP 
NSIGN 
NZONE 


OVERFL 


PACK 
PDUMP 
PRINT 
PUNCH 
PUT 
P1403 
P1442 
P2560 
P3284 


READ 
READ42 
R2501 
R2560 


SETINO 
SETO 
SET1 
SHIFT 
SHIFTR 
SIN 
SKIP. 
SLITE 
SLITET 
SPACE 
SP1403 
S$P3284 
SORT 





STACK 
STAK42 
STAK60 
SUB 
$1403 
$3284 


TANH 
TYPER 


UNPAC 


WHOLE 


Figure 24. Nemes of IBM System/3 FORTRAN-Supplied Functions and Commercial Subroutines 
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OPTIMUM ASSIGNMENT OF $WORK AND $SOURCE 
WORK FILES 


Proper assignment of the work files, $WORK and SSOURCE, 
can improve the performance of the compiler and linkage 
editor. For the Model 6 and Model 10, work files must be 
on the 5444. For the Model 12, work files must be in the 
5444 simulation areas. Model 15 allows work files on 

either the 5444, 5445, or 3340. 


The work files should be located in such a way that they 
minimize the number and distance of disk seeks ina 
particular configuration. The LOCATION parameter on 
the // FILE statement is used to fix the location of the 
work files. 


Assignment of Work Files on One Disk 


If only one disk is available, the work files should be located 
close to each other: 


// FILE NAME-$WOR K,UNIT-F 1,LOCATION-180,T RACKS-20,PACK-xxxxxx,RETAIN-S 
// FILE NAME -$SOURCE,UNIT-F1,LOCATION-200, TRACKS-20,PACK-xxxxxx,RETAIN-S 
Assignment of Work Files on Two Disks 


When two disks are available, the work files should be 
located on separate disks at the same LOCATION: 


// FILE NAME-SWOR K,ONIT-F 1,LOCATION-190,TRACKS-20,PACK-xxxxxx,RETAIN-S 
// FILE NAME-SSOURCE,UNIT-R1,LOCATION-190,T RACKS-20,PACK-xxxxxx, RETAIN-S 


Model 15 Assignment of Work Files on 5445 or 3340 
Disk Storage 


On the Mode! 15 only, work files can be assigned to the 
5445 or 3340 disk storage: 


// FILE NAME-$WOR K,UNIT-D1,TRACKS-20,PACK-xxxxxx,RETAIN-S,LOCATION-100/1 
// FILE NAME -$SOURCE ,UNIT-D1,TRACKS-20, PACK -xxxxxx,RETAIN-S,LOCATION-100/2 
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LINKAGE BETWEEN MODULES PRODUCED BY 
SYSTEM/3 LANGUAGE TRANSLATORS 


This section describes standard linkage conventions for use 
between modules produced by the System/3 language trans- 
lators: COBOL, FORTRAN, and Assembler. Programmers 
using standard linkage conventions are able to code routines 
in the language most appropriate to the function being 
performed. Figure 25 illustrates the standard described on 
the following pages. 


* SAMPLE SYSTEM/3 LINKAGE 
* 
* ASSEMBLER MODULE (MODA) CALLS FORTRAN MODULE (MODB) 
* 
EXTRN MODB 
MODA START X'0000! 
B MODB CALL FORTRAN MODULE MODB 
DC AL2(PLIST) PARAMETER LIST 
* CONTROL RETURNS HERE AFTER MODULE MODB HAS BEEN EXECUTED 
* PARAMETER LIST 
PLIST EQU* 
DE AL2(SAVA) ADDRESS OF SAVE AREA 
DC AL2(PARML) ADDRESS OF FIRST PARAMETER 
DC AL2(PARM2) ADDRESS OF SECOND PARAMETER 
DC XLL'00! END OF PARAMETER LIST INDICATOR 
* 
* PARAMETERS 
| PARMIL EQU 
DC CL5'FIRST! 
PARM2 EQU 
DC CL6'SECOND! 
q 7 . 
* SAVE AREA 
SAVA DC XL1'BO! INDICATOR BYTE -- CALLING PROGRAM IS ASSEMBLER 
DC CL6'MODA' CALLING PROGRAM'S NAME 
END MODA 


Figure 25 (Part 1 of 2). Standard Linkage 
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XR1 EQU 
XR2 EQU 
ARR EQU 
TAR EQU 


ENTRY 
MODD START 


FORTRAN MODULE 


SAMPLE SYSTEM/3 LINKAGE 


PON 


6 


MODD 

X'O000'! 

SAVAR1,XR1 

SAVA,XR1 

SAVA,XR1 

SAVAR2{,XR1) »XR2 
SAVART(,XR1L) yARR 
SAVART( yXRL) yXR2 
1(,XR2),XR2 
SAVART(»XR1L) »TWO(,XR1) 


% BODY OF ROUTINE 


* RETURN TO CALLING PROGRAM 


L 
L 
Le 
* 
* SAVE AREA 
SAVA DC 
DC 
SAVAR1L DC 
SAVAR2 DC 
SAVART DC 
* 
TWO DC 
END 


SAVAR2(,XR1L) »XR2 
SAVARL( »XR1L) + XRD 


(MODC) CALLS ASSEMBLER MODULE (MODD) 


SAVE CONTENTS OF XR1L 
XRL IS BASE FOR SAVE AREA 


SAVE CONTENTS OF XR2 

SAVE CONTENTS OF ARR 

XR2 POINTS TO ADDRESS OF PARM LIST 
XR2 POINTS TO PARAMETER LIST 

SET RETURN POINT 2 PAST ARR 


RESTORE XR2 
RESTORE XR1 


SAVART,IAR RETURN 

XL14'30! INDICATOR BYTE -- CALLED PROGRAM IS ASSEMBLER 
CL6'MODD! CALLED PROGRAM'S NAME 

XL2'00! CONTENTS OF XRL ON ENTRY TO THIS ROUTINE 
XL2'00! CONTENTS OF XR2 ON ENTRY TO THIS ROUTINE 
AL2(00) RETURN POINT 


IL2'2! 


Figure 25 (Part 2 of 2). Standard Linkage 
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Standards 


In order to be standard, linkage must be accomplished as 
follows: 


1. 
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Each module must have a save area defined as 
follows: 


For a subprogram: 


BytwO Bit O 0 Not a main program 
Bits 1-3 000 FORTRAN 
001 COBOL 


011 Assembler 
Bits 4-7 0000 Reserved 


Bytes 1-6 EBCDIC name, left justified 


Bytes 7-8 Value of index register 1 
(XR1) at entry 


Bytes 9-10 Value of index register 2 
(XR2) at entry 


Bytes 11-12 Return point in calling 
program 


For a main program: 


Byte 0 Bit O 1 Main program 
Bits 1-3 000 FORTRAN 
001 COBOL 


011 Assembler 
Bits 4-7 0000 Reserved 


Bytes 1-6 EBCDIC name, left-justified 


Note: Main program refers to the program with the 
highest level of control. 


Each module that calls another module must have 
one or more parameter /ists defined as follows: 


Bytes 0-1 Address of save area in this 
program 

Bytes 2-3 Address of first parameter 

Bytes (2n)-(2n+1) Address of nth parameter 

Byte (2n+2} XL1’00’ to indicate end of 


parameter list 


Notes: 

1. The first two bytes, as well as the end-of-parameter- 
list indicator (XL1’00’) must be present in all pa- 
rameter lists. If no parameters are to be passed, the 
the parameter list is only 3 bytes long. In this 
case, byte 3 will be 0 and the called program indi- 
cates a parameter list length of 2. 

2. Addresses in parameter lists refer to the first hyte 
(byte with the lowest address of the item. 


3. When control reaches a program entry point, the 
address recall register (ARR) must point to a 2-byte 
field containing the first byte of the parameter fist. 


The assembler language code to calla FORTRAN 
subprogram would normally be as follows: 


EXTRN SUBR 

B SUBR 

DC AL2 (PARAMS) 
RETNPT EQU * 


Note that the pointer to the parameter list points to 
the left byte of the save area address. 


4. Normal return ts accomplished by placing in the hard- 
ware instruction address register (LAR) a value that 
is two larger than the contents of the ARR when the 
program was entered. 


5. Index registers 1 and 2 (XR1 and XR2) must be 
saved upon entry in the called program's save area, 
and restored at exit. 


6. The address recall register need not be restored, but 
the return address must be determined and placed 
in the called program’s save area. 


CONSOLE DISPLAY PANEL DIAL SETTINGS 


To aid him in debugging a compilation error, the IBM 
customer engineer can set the dial setting of the console 
display panel to the combination CEFE. For more efficient 
processing, be sure that this combination of characters is 
not present on the dial settings before beginning a 
compilation. 


MODELS 10 AND 12 DUAL PROGRAMMING 
CONSIDERATIONS 


FORTRAN programs can run in the dual programming 
environment (which allows two independent programs 

to be run concurrently) provided that the two programs 
do not share the same devices. For example, if the MFCU1 
is used by the FORTRAN compiler, it cannot be used by 
the other program. 


MODEL 15 CONSIDERATIONS 


Model 15 Spooled Environment and Multiprogramming 


FORTRAN programs can be run in a Model 15 spooled 
environment or in the multiprogramming partitions. See 
!BM System/3 Model 15 System Control Programming 
Reference Manual, GC21-5077. 


Modei 15 CRT/Keyboard Support 


The System/3 Model 15 CRT/keyboard is comprised of: 


@ An IRM 3277 Display Station Model 1—a cathode ray 
tube (CRT) screen. 


@ Feature 4632—a 78-key operator console keyboard. 


Seven of the twelve 40-character lines are supported by 
FORTRAN for input and output operations. Because the 
last position is reserved for system use, a maximum of 279 
positions are available to FORTRAN. 


3 
o 


Program Input/Output 


Used By 
FORTRAN 


Messages/Responses 


Status 





Two kinds of CRT/keyboard support are available: 
@ Full screen support 
@ Split screen support 


Full screen support is obtained by specifying 3277 on the 
FORTRAN READ and/or PRINT device option statements. 
Split screen support is obtained by specifying 327758. 


Logical unit numbers 5 and 6 are used for both split screen 
and full screen support. Split screen and full screen support 
cannot both be specified in the same program. 


Full Screen Support 


A WRITE statement first blanks all seven lines and then 
displays up to 279 characters. A READ statement allows 
the operator to key data into the 279-position area. Be- 
cause the screen is not blanked by FORTRAN before a 
READ, a WRITE followed by a READ allows the operator 
to update the displayed record. 


line 


279-position area used for 


either input or output 





NOnFfF Wn = 


Split Screen Support 


The’first 125 positions are used for output, followed by 
15 unused (blank) positions. The next 125 positions are 
used for input, followed by 14 unused (blank) positions. 


line 





NOOR WN = 


The WRITE statement blanks the 125-position output area 
and then displays the 125 characters. A READ statement 
blanks the 125-position input area and then accesses data 
from this portion of the screen after data has been keyed 
and displayed on the screen. 
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Model 15 Double Buffering for Card Devices 


Model 15 FORTRAN allows the user to double buffer the 
card |/O on the MFCU, MFCM, 1442, and 2501. The de- 
fault of two buffers is allocated un/ess either of the follow- 
ing conditions exist: 


1. The user specifies one buffer by adding an asterisk 
(*) to the device code (for example, MFCU1*), 


2. Multiple operations are assigned to the same device 
(for example, READ, 1442: PUNCH, 1442). 


The following table shows the number of buffers allocated 
to MFCU2 or MFCM2 for allowable combinations of opera- 
tions. The asterisk after the read, punch, or print specifica- 
tion indicates a single buffer is requested. 


Number of 
Specification Buffers Allocated 
Read» 1 
Read 2 
Punch« 1 
Punch 2 
Read Punch 2 
Read Punch Print 2 
Punch Print 1 
Read» Punch 1 
Read* Punch 2 
Read Punch« 1 
Punch* Print 1 
Punch Print» 1 
Punch* Print* 1 
Read* Punch Print 2 
Read Punch+ Print 1 
Read Punch Print+ 1 
Read* Punch Print 1 
Read Punch* Prints 1 
Read + Punch Print» 1 
Read* Punch Printx 1 


Considerations/Restrictions 


There might be a degradation in speed when the MFCU1 
and the MFCU2 print are double buffered. 


150 


Model 15 (5704-FO2) 3741 Support 


When using the 3741 with Model 15 FORTRAN 
(5704-FO2), the following considerations apply: 


© The record length must be from 1 to 128 bytes. 


@ Each sector on the diskette contains only one logical 
record. 


@ All records in a file must have the same record length 
(fixed length records). 


@ Records are read from or written to the 3741 one ata 
time (unblocked). 


@ Double buffering is the default, single buffering may be 
specified. 


@ Records are read from or written to the 3741 sequentially. 


@ Reading and writing cannot be done in the same program 
using FORTRAN READ and WRITE statements. By 
using the FORTRAN Commercial Subroutines R3741 
and P3741, reading and writing in the same program can 
be done. 


@ An end-of-file condition occurs for an input file when: 
— A/* statement is read. 
-- A/& statement is read. 
-- A/. statement is read. 
~ EOD (end of data) is reached. 


For a discussion on modes of operation see /BM System/3 
3741 Reference Manual, GC21-5113. 


DIFFERENCES BETWEEN 1130 AND SYSTEM/3 


This section briefly summarizes some of the differences 
between the 1130 and System/3 which might affect FOR- 
TRAN processing. 


Unit Numbers 


A comparison of assignment of unit numbers to input/out- 


put devices is: 


Unit 
Number 


1130 Assignment 


Console print 


1442 read/punch 


1132 print 


1403 print 


Keyboard input 


1442 punch 


System/3 
Models 10 and 
12 Assignment 


MFCU1 read 
only 


MFCU2 read/ 


print/punch 


5203 or 1403 
print 


5471 input 


5471 output 


1442 read/ 
punch 


System/3 
Model 6 
Assignment 


5406 input 


5496 input 
or output 


5213 or 2222 
print 


System/3 
Model 15 
Assignment 


MFCU1 or 
MFCM1 read only 


MFCU2 or 
MFCM2 read/print/ 
punch 


1403 print 


3284 print 
Keyboard input 


CRT output 


2501 read only 


1442 read/punch 


Note: in System/3, unit numbers can be assigned to only one device; for example, if 


number 5 is specified for the 5471 in a program, it cannot also be assigned to a direct-access 


device in that program. If 5471 input is not specified, unit number 5 can be assigned to a 
direct-access device. 
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Device Options 


In System/3, input/output devices are specified by device 
option statements, which correspond to the 1130 *!OCS 
statement. For example: 


1130 Usage System/3 Usage 
*1IOCS (1132 PRINTER, // PRINT DEVICE-'1403,5471' 
TYPEWRITER, 


1403 PRINTER) 


*1OCS (CARD, 2501 // READ DEVICE-‘MFCU1,MFCU2,1442,5471’ 
READ,KEYBOARD) 


*lOCS (1442,PUNCH,CARD) // PUNCH DEVICE-’MFCU2, 1442’ 
*10CS (DISK) // DAD44 UNITNO-‘n1,n2,...° 


// DAD45 UNITNO-‘n1,n2,...' 


Specifying the BCD Option 


Any 1130 FORTRAN card decks that were punched using 
the BCD card punch (the 026 keypunch) can be read by 
the System/3 compiler by specifying the BCD option on 
the *PROCESS compiler uption statement. (*PROCESS 
is described in Chapter 13, Compilation.) 


Read/Punch on the Same Card 


In 1130 FORTRAN the same card can be read and punched 
using the 1442 card read punch. System/3 FORTRAN does 
not permit input/output operations to be performed on the 
same card except for certain commercial subroutines. The 
MFCU2 and 1442 can be used as either, but not both, an 
input or output device in the same program. 
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Call Link 


In System/3, main programs can call each other using the 
INVOKE statement, which corresponds to the 1130 CALL 
LINK statement. The PROGRAM statement must be 
specified as the first statement of each main program to be 
invoked. Further, all common blocks sharing data between 
main programs must be changed to GLOBAL statements. 
For example: 
1130 Usage System/3 Usage 

PROGRAM MAIN 


COMMON A,B(10),J 
. GLOBAL A,B(10),J 


INVOKE MAIN2 
PROGRAM MAIN2 
GLOBAL C,D(10),J 


CALL LINK (MAIN2) 


If any of the programs being invoked require more storage 
than the invoking program, a CORE compiler option state- 
ment should be specified explicitly stating the largest 
amount of storage required. (Additional information on 
using the CORE compiler option statement with PROGRAM 
and INVOKE statements can be found in Chapter 19, 
FORTRAN Implementation Considerations.) 


Associated Variables in Subroutines 


In System/3, if an associated variable is passed as an argu- 
ment to a subroutine, it is not automatically updated when 
input/output operations are performed in the subroutine, 
To ensure that the variable is updated, pass it through 
COMMON. For example: 


1130 Usage System/3 Usage 
COMMON IJ 

DEFINE FILE 8(r,s,f,1J)} DEFINE FILE 8({r,s,f,1J} 

J=25 1J=25 

CALL WRTR(IJ) CALL WRTR 

END END 


SUBROUTINE WRTR 


SUBROUTINE WRTR(IVAR) 
: COMMON IVAR 


WRITE (8’IVAR) WRITE (8°IVAR) 


Library Routines 


In System/3, if calls are made to the math library (for 
example, SIN, SORT), the GENERIC statements should 
be included to ensure that the proper library module is 
loaded for the argument type. 


For library routines using integer arguments (for example, 


MIN, MAX, FLOAT), integer arguments must be typed as 
INTEGER «4. 
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Passing Arrays 


In the 1130, arrays not used in a subroutine need not be 
dimensioned. In System/3, arrays must be dimensioned 
in all subroutines in which they are passed, even though 
they are not used in a particular subroutine. For example: 


1130 Usage System/3 Usage 


DIMENSION 1(20) DIMENSION 1!(20) 


CALL SUB1 (1) CALL SUB1 (1) 


SUBROUTINE SUB1(J) 


SUBROUTINE SUB1(J) 
. DIMENSION J(20) 


CALL SUB2(J) 

(J not used in SUB1) 
SUBROUTINE SUB2(K) 
DIMENSION K(20) 


CALL SUB2(J) 

(J not used in SUB1) 
SUBROUTINE SUB2(K) 
DIMENSION K(20) 


When arrays are passed as arguments to subroutines, 
System/3 passes the address of the array in the calling 
programs data area. 


Length Specification cf Variables 


In System/3, INTEGER*2 and REAL *8 variables can be 
specified using the IMPLICIT statement, which corresponds 
to the 1130 «ONE WORD INTEGERS and *EXTENDED 
PRECISION statements. For example: 


1130 Usage System/3 Usage 
*ONE WORD INTEGERS 
*EXTENDED PRECISION 


System/3 FORTRAN requires some variables to be 
INTEGER «4, such as: variables and arguments to INTEGER 
intrinsic functions, arguments to commercial subroutines, 
and logical unit numbers. 
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IMPLICIT INTEGER *2 (I-N) 
IMPLICIT REAL*8(A-H,O-$) 


Use of COMMON, EQUIVALENCE, and DEFINE FILE 


in System/3, the relative size of double precision variables 
to single precision variables (REAL*8 to REAL *4) is 2:1. 
In 1130 the relative size of EXTENDED PRECISION 
variables to single precision variables is 3:2. Thus, it may 
be necessary to change COMMON and EQUIVALENCE 
statements and to increase the size of records in DEFINE 
FILE statements. 


Rounding 


1130 FORTRAN does not round when converting data 
items on input; System/3 FORTRAN does. Thus, if any 
FORTRAN rounding code is present in 1130 FORTRAN 
programs, remove it before converting to System/3. 


Passing Scalar Arguments to Subroutines 


When scalar arguments are passed to a subroutine, System/3 
copies the arguments into the subroutine’s data area, uses 
them in the subroutine, then copies the values back to the 
calling program when the subroutine returns control. With 
the 1130, the values in the calling program are used direct- 
ly; they are neither copied to the subroutine nor copied 
back to the calling program. 


Consider the following code: 


J=1 SUBROUTINE SUM(L,M,N) 
CALL SUM(J,J,5) L=M+N 

RETURN 

END 


Before control is returned to the calling program, L has the 
value 6, M the value 1, and N the value 5. However, under 
System/3, when control returns, the value of J is still 1 
because the variable M (value 1) is copied back to J after 
the variable L. 


To avoid this problem, before converting an 1130 program, 
recode the parameter list ina CALL statement so that any 
value being tested is not specified more than once, for 
example, CALL SUM(K,J,5). 


Forms Control 


The 1130 has a carriage control tape to sense channel 12 or 
the overflow line and channel 1, which is the beginning of 
a page. This provides for a limited amount of page format- 
ting. Because System/3 has no carriage control tape, all 
forms control must be incorporated into the program by 
the programmer. 


The 1130 also can print a program name on each page of a 
program listing by the use of an ** card. This is an invalid 
card for System/3. 


Commercia! Subroutines 


The System/3 FORTRAN Commercial Subroutines Pack 
age includes three 1442 card read punch routines. P1442 
is used for card punching, READ42 for card reading, and 
STAK42 for selecting alternate stackers. The correspond- 
ing 1130 routines were PUNCH or P1442, READ, and 
STACK. The System/3 commercial subroutines support 
allows the 1442 to be used as a combined file. 


Decimal Data Format 


In System/3, D1 format corresponds to the standard 
System /360 zoned decimal format: one digit per eight-bit 
byte, or two digits per INTEGER “2 array element. The 
digit is carried in the low-order four bits of the byte, with 
the high-order fou: bits set to 1's (X‘F’). However, the 
high-order four bits of the low-order byte are used to carry 
the sign of the number: X‘C’ (binary 1100) or X’F’ 
(binary 1111) for positive; X‘D’ (binary 1101) for negative. 


in 1130, D1 format consists of one digit per word, right 
Justified. The dec:mal field is stored in an array, one digit 
per element. The sign of the digit is carried with the right- 
most digit. If the number is negative, a negative one (~1) 
is added to the rightmost digit. This must be done because 
the 1130 cannot represent a negative zero. 


A1 Data Format 


The Al format is the same in System/3 and 1130, except 
for the sign of a numeric field. In Systens/3, the sign of a 
numerie field in Al format ts assumed to be carried as the 
zoned portion of the rightmost character: X’°C" {binary 
1100) or X‘F’ (binary 1111) for positive: X’D) (binary 
1101) or X‘60' (minus) over the units position for negative. 
A negative zero is represented by a X’DO' or X‘60° (ininus). 


In 1130, the sign of a numeric field in Ai formats a 
multiple punch over the rightmost character: 


11 punch for negative and 12 punch for postive. 
A negative zero is represented by a X60’ (minus). 


Negative Zero 


In System/3, a negative Zero is represented by ar XD 
in 1130, a negative zero ts represented by an XO Com. 
mercial subroutines require a minus (-) @ver Che casts pose 
tion for a negative value. If the units position is a Zeru, 
the 1130 cannot recognize the value. [herctore, the ch 
cumvention of punching a minus (X‘6Q’) in the Greets past 
tion instead of the zero was implemented far 713. 


Number of Record Fields in the DEFINE FILE Staternant 
System/3 does not use this number as a check ta. scoussing 
records outside the range of the DEFINE rib siavermnent. 


The range or size of the file is set by the Fit bk storernent 
TRACKS and RECORDS pararneters. 


Se Stade Cleaegigbse aly =o 
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Part 4. Reference 


This section contains: 
@ FORTRAN statement reference 


@ System/3 FORTRAN intrinsic and external library 
functions 


@ FORTRAN service subprograms 


Reterence 
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This section lists the FORTRAN statements in alphabetical 
order and summarizes cach of them using the following 
format: 

@ Statement name 


® General form of the statement 


@ Examples of statement use 


Arithmetic Assignment Statement 
General Form: a cb 
where 

ais a variable or array element 


b is a variable, array element, or arithmetic expression 


Examples: 
A=B A=A+B 
A=B(1) A=SIN(A**1) 
A=B(1I) A(1)=FUNC(B,C,D) 
A= I=A 
A=6 I=1+6 
A=6.4 
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Arithmetic IF Statement 
General Form: AF (a)iy jt itr, 
where 

ais an artthmetic expression 


nya, and ny are statement numbers of executable 
statements in the program unit containing the Lt 
statement. 


Examples: 


IF (A-B)10,4,30 
40 D C##2 


4 D~B+C 
30 C=D**2 


10 ~E=(F*B)/D+1 


The IF statement compares the value of the difference 
between A and B. If the value is negative, a branch is made 
to statement number 10; if zero, a branch is mace ta 
statement number 4; and if positive, a branch is mad: to 
statement number 30. 


FORTRAN Statement Reference ae 


AT Statement 
General Form: ATn 


where 


n is an executable statement number in the program or 
subprogram to be debugged. 


Examples: 
200 X=Y+Z 


DEBUG TRACE 
AT 200 
TRACE ON 


END 
BACKSPACE Statement 
General Form: BACKSPACE i 
where 
i is an unsigned integer constant or INTEGER*4 
variable that 1s the logical unit number of a sequential 
file located on a magnetic tape or disk unit. 


Examples: 


BACKSPACE 10 
BACKSPACE L 
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CALL Statement 

General Form: CALL name(a; a2 ,a3,... an) 

where 
name is the name of a SUBROUTINE subprogram. 
a is an actual argument that is being suppliec .v the 
SUBROUTINE subprogram. It can be a variable, array 
name, array element, arithmetic expression, or subpro- 
gram name. 

Examples: 
CALL OUT 
CALL MATMPY(X,5,40,Y,7,Z) 
CALL SUB1(X+Y*5,ABDF,SINE) 
CALL SUB(P,Q,R,1) 

COMMON Statement 

General Form: COMMON a, {ky ),a2 (kz), .. . ,an (Ky) 


where 


a is a variable or array name that is not a dummy 
argument. 


k is optional and is composed of from one to three 
unsigned integer constants, separated by commas, 
representing the maximum value of each subscript in 
the array. 


Examples: 
Calling Program 


Subprogram 


COMMON A,B,C,R (100) SUBROUTINE MAPMY 


REAL A,B,C 
INTEGER R COMMON x, Y,Z,S(100) 
4 REAL X,Y,Z 
INTEGER S 
CALL MAPMY 


Compyited GO TO Statement 
General Form: GO TO (ni,n2,... My), i 


where 


n is the number of an executable statement in the 
program unit containing the GO TO statement. 


i is an integer variable whose value is in the range 1<i<n. 


Examples: 


GO TO (25,10,7,10),1TEM 
3 C=7.02 


7 C=E**24+A 
25 L=C 


10 B=21.3E02 
A branch is made to a statement number based on the value 
of the integer variable, ITEM. If ITEM has a value of 1, the 
branch is to the first statement enclosed in parentheses in 
the GO TO statement (statement number 25); if ITEM has a 


value of 2, the branch is to the second statement 
(statement number 10), etc. 


CONTINUE Statement 


General Form: CONTINUE 
Examples: 


DO 30 1=1,20 


GO TO 7 
30 CONTINUE 


DATA Statement 
General Form: DATA k,/i; *dy/,K2/i2 *do/,.. . Ky /in *dp/ 
where 


k is a list containing variables, array elements (in which 
case the subscript quantities must be unsigned integer 
constants), or array names. 


dis a list of constants, (integer, real, hexadecimal! or 
literal). 


i* is optional and is an unsigned integer constant 
appearing before d, indicating that d is to be specified 
i times. 

Examples: 


DIMENSION D(5,10) 
DATA A,B,C/5.0,6.1,7.3/,D,E/25*1.0,25*2.0,5.1/ 


DIMENSION A(5),B(3,3) 

DATA A/5*1.0/,B/9*2.0/,C/'FOUR'/ 
DEBUG Statement 
General Form: DEBUG option,... ,option 
where 


option may be one of the following, specified in ary 
order: 


SUBCHK(n,.3,... Mp) 


where n is an array name and is optional. 
TRACE 
INIT(m, M2,-.-- Mn) 


where m is the name of a variable or an array and is 
optional. 


SUBTRACE 


Examples: 


PROGRAM FIRST 


DEBUG SUBCHK(SUB), TRACE, INIT(SUM WaT? 
SUBTRACE 
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DEFINE FILE Statement 


Direct-Access READ/WRITE Statement 


General Form: DEFINE FILE uy (ry .81.f) V1) U2 (re S2,fe v2), See READ Statement (Direct-Access). 


-+ + Un (rp Snjfn Vn) 
where 


uis an unsigned integer constant that is the logical unit 
number. 


r is an unsigned integer constant that specifies the 
number of records in the file associated with u. 


s is an unsigned integer constant that specifies the 
maximum size (in characters, bytes, or words) of each 
record associated with u. 

f specifies whether data is to be read or written with or 
without format control. The f code may be one of the 
characters L, to indicate that a file may be processed 
(read or written) either with or without format control 
(s is interpreted to specify bytes); E, to indicate that a 
file is processed with format control (s specifies bytes); 
or U, to indicate that a file is processed without format 
control (s is interpreted to specify words). 

v is an integer variable called the associated variable. 


Examples: 


DEFINE FILE 8(50,100,L,12),9(100,50,L,J3) 


DIMENSION Statement 
General Form: DIMENSION a, (k;),a2 {k2),.. . an (kp) 
where 
a is an array name. 
k is composed of from one to three unsigned integer 
constants, separated by commas, representing the 
maximum value of each subscript in the array. 


Examples: 


DIMENSION A(10),ARRAY(5,5,5),LIST(10, 100) 
DIMENSION B(25,25), TABLE(5,10, 15) 
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DO Statement 
General Form: DO ni =m,,m2,M3 
where 


nis the statement number of an executable statement 
appearing after the DO statement and in the same 
program unit. 


i is a non-subscripted integer variable called the DO 
variable. 


m,,M2, and m3 are either unsigned integer constants 
greater than O or non-subscripted integer variables. The 
value of m, should not exceed that of m2. The value 
of m2 cannot exceed 23!_2. my is optional and, if 
omitted, is assumed to be 1. If m3 is omitted, the 
preceding comma must also be omitted. 


The statements that physically follow the DO statement up 
to and including the statement numbered n are called the 
range of the DO. The value of m, is called the initial value. 
The value of m is called the test value. The value of m3 is 
called the increment. 


Example 7: 


K=0 
L=10 
DO 5 JOB=1,L,2 
K=K+1 
5 M(JOB)=N(JOB)-K*JOB 


Example 2: 


15 DO 25 J=1,1000 
25 INV(JJ=INV(J)-IOUT (J) 
35 


END Statement 


General Form: END 


Examples: 


PROGRAM FIRST 


SUBROUTINE SECOND 


CALL SECOND RETURN 
: END 

STOP 

END 


END FILE Statement 

General Form: END FILE’ 

where 
iis an unsigned integer constant or INTEGER «4 variable 
that is the logical unit number of a sequential file on a 
magnetic tape or disk unit. 


Examples: 


END FILE 10 
END FILE L 


EQUIVALENCE Statement 


General Form: EQUIVALENCE (a, ,412,4;3,...), 
(a2 1,422,423,..-),... 


where 
ais a variable wr array element. 


Examples: 


DIMENSION C€(100,100),A(50,50),B(100) 
EQUIVALENCE (C(1),A(1)),(C(2501),B(1)) 


GLOBAL A,B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(1)) 


Explicit Specification Statement 


See /NTEGER Statement/REAL Statement. 


EXTERNAL Statement 

General Form: EXTERNAL a, ,a2 ,a3,... ay, 

where 
ais the name of a subprogram that is passed as an 
argument to other subprograms. 

Examples: 
EXTERNAL MULT 


. 


CALL SUB(J,MULT,C) 


FIND Statement 
General Form: FIND (u’r) 
where 
u is an unsigned integer constant or INTEGER *4 variable 
that represents a logical unit number of a direct-access 
file. 
ris an integer expression that represents the relative 
position of a record within the file associated with u. 
Examples: 
DEFINE FILE 8(1000,80,L,1VAR) 


10 FIND(8’50) 


15 READ(8’50)A,B 


mo 
Q 
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FORMAT Statement 


General Form: xxxxx FORMAT (c,s;¢952 ... ep) 


where 
XXXXX IS a One-to-five digit statement number. 


c is a format code that describes integer data (code 1), 
real data (codes D, E, F), character data (A), literal data 
(H, or data enclosed in apostrophes), fields to be skipped 
(X), or a position in a FORTRAN record where data 
transfer is to begin (T), and the number of characters in 
a field. 


s is a separator, which may be either a comma or any 


number of slashes. Slashes indicate the beginning of a 
new record, 


Examples: 
10 FORMAT (€10.5,D16.10,17,E7.2,D 12.7) 
2 FORMAT (3F9.2,2D15.10/8E 10.5) 
30000 FORMAT (‘ THE FOLLOWING IS A LIST OF 
PRIMES'/(15)) 

Function Definition Statement 
General Form: name(ay ,a2,a3, . . . ,an)=expression 
where 

name is the statement function name. 

ais a dummy argument. 

expression is any arithmetic or relational expression that 

does not contain array elements. 


Examples: 


FUNC(A,B)=3.*A+B**2.4+X+Y+Z 
SUM(A,B,C,D)=A+B+C+D 
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FUNCTION Statement 
General Form: type FUNCTION name*s(a; ,42,43,... an) 
where 
type is optional and can be INTEGER or REAL 
name is the name of the FUNCTION 
$s is optional when type is specified and represents one of 
the length specifications for its associated type (2 or 4 


for INTEGER, 4 or 8 for REAL). 


ais a dummy argument. 


Examples: 

FUNCTION CALC(A,B,J) 

INTEGER FUNCTION CALC2(I,J,K) 
GENERIC Statement 


General Form: GENERIC 


Examples: 


GENERIC 
REAL*8 A,B,C,D 
C=COS(A) 
D=DCOS(B) 


GLOBAL Statement 
General Form: GLOBAL a, (k,),a2 ({k2), . . . an (ky) 
where 
ais the name of a variable or an array. 
k is optional, and is a subscript composed of one through 
three unsigned integer constants, separated by commas, 
representing the maximum value of each subscript in 
the array. 
Examples: 
PROGRAM FIRST 


GLOBAL A,B,C(5,5), 
D(10,100) 


PROGRAM SECOND 
GLOBAL,X,Y,Z(25), 
DATA(10,100) 


GO TO Statement 
(See also Computed GO TO Statement.) 
General Form: GO TOn 


where 
nis the number of an executable statement in the 
program unit containing the GO TO statement. 


Examples: 
GO TO6 
12. X=Y-Z 
6 A=2.*B 


IF Statement 


See Arithmetic IF Statement/Relational IF Statement. 


IMPLICIT Statement 


General Form: (IMPLICIT type*s,(a;1,a;2,...),-.. 
type*sy(an1,an2,..-) 


where 
type is either INTEGER or REAL. 
s is optional and represents one of the length specifica- 


tions for its associated type (2 or 4 for INTEGER, 4 or 8 
for REAL). 


a is a single alphabetic character or a range of characters 
in the set A,B, ...,Z,$ in that order. The range is 
denoted by the first and last characters of the desired 
range separated by a minus sign (for example (A-D)}. 


Examples: 


IMPLICIT INTEGER *2(A-H), REAL «8(I-K) 
IMPLICIT REAL(A-H,O-Z), INTEGER(I-N) 


INTEGER Statement 
General Form: INTEGER*s ay (k,),a2 (kz), .. . ,an (ky) 
where 


*s is optional and represents one of the INTEGER length 
specifications, 2 or 4. 


ais a variable, array, or function name. 


k is optional and gives dimension information for arrays. 
Each k is composed of one through three unsigned 
integer constants, separated by commas, representing the 
maximum value of each subscript in the array. 


Examples: 


INTEGER*2 ITEM, VALUE 
INTEGER*4 LIST,VAL2 
INTEGER B(100) 


INVOKE Statement 
General Form: \INVOKE name 


where 
name is the name of a main program specified in a 
PROGRAM statement. 


Examples: 


PROGRAM FIRST PROGRAM SECOND 


. . 
. 


. 


INVOKE SECOND 
PAUSE Statement 
General Form: PAUSE n 
where 
nis an optional! integer constant that is printed with the 
PAUSE statement for identification. 
Examples: 
PAUSE 
PAUSE 50 
PAUSE 00002 
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PROGRAM Statement 
General Form: PROGRAM name 
where 
name is the name assigned to the main program. 
Examples: 


PROGRAM SECOND 


READ Statement (Direct-Access) 

General Form: READ(u’r,f,ERR=s) list 

where 
u is an unsigned integer constant or INTEGER*«4 variable 
that represents a logical unit number of a direct-access 


file. 


ris an integer expression that represents the relative 
position of a record within the file associated with u. 


f is optional and, if specified, is the statement number of 
a FORMAT statement that describes the data being read. 


ERR=s is optional and specifies the statement number 
(s} in the same p:ogram unit to which to transfer 


control if an err ar occurs during data transfer. 


list is an I/O list. 
Examples: 


DEFINE FILE 8(500,100,L,1D1),9(100,28,L,1D2) 
9 READ (8'16,10)(M(K),K=1,10) 


13 READ(9'ID2+5)A,B,C,D,E,F,G 


malig 
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READ Statement (Sequential) 
General Form: READ (u,f,ENO=s,ERR=t) list 


where 


u is an unsigned integer constant or INTEGER *4 variable 
that represents the logical unit number of the device to 
be read from. 


f is optional and can be the statement number of a 
FORMAT statement or an asterisk (+). 


END =s is optiona! and specifies the statement number {s) 
in the same program unit to which to transfer control if 
an end of file condition is encountered. 


ERR=t is optional and specifies the statement number (t) 
in the same program unit to which to transfer control if 
an error occurs during data transfer. ERR is ignored if 
the file is not a disk or tape file. 


list is an 1/O list (optional if f is specified). 78 


Examples: 


READ (1,98)A,B,(C(i,K),1=1,10) 
READ (J)A,B,C 
READ (1,*,END=200) (ARRAY (I),1=1,25),B(2),C(6)) 


REAL Statement 
General Form: REAL*s a; (k,),a7 (kz), .. . an (Ky) 


where 


*s is optional and represents one of the REAL length 
specifications, 4 or 8. 


ais a variable, array, or function name. 


k is optional and gives dimension information for arrays. 
Each k is composed of one through three unsigned 
integer constants, separated by commas, representing 
the maximum value of each subscript in the array. 


Examples: 


REAL ITEM(5,5),B(100) 
REAL*8 MULT 
REAL*4 JMULT 


Relational 1F Statement 
General Form: \F (a)s 
where 

ais a relational expression. 


s is an executable statement except a DO statement or 
another relational IF statement. 


A relational expression is formed by combining two arith- 
metic expressions with one of the six relational Operators: 
.GT., .LT., .EQ., .NE., .GE., or .LE.; which stand for 
greater than, less than, equal to, not equal to, greater than 
or equal to, and less than or equal! to, respectively. The 
periods must precede and follow the relational operators, 
as shown. 


Examples: 


The two following IF statements have the same effect: 


IF (A.LT.B)A=B 
200 - 


. 


1F (A-B) 100,200,200 
100 A=B 
200 


RETURN Statement 


General Form: RETURN 


Examples: 


SUBROUTINE COPY (A,B,N) 


RETURN 
END 


FUNCTION CALC (A,B,J) 


RETURN 
END 


REWIND Statement 
Generai Form: REWIND i 
where 
i is an unsigned integer constant or INTEGER =4 variable, 
that is the logical unit number of a sequential tile on a 
magnetic tape or disk unit. 
Examples: 
REWIND 10 
REWIND L 
Sequential READ/WRITE Statements 
See READ Statement (Sequential//WRITE Statement 
(Sequential). 
STOP Siatement 
General Form: STOP n 
where 
nis an optional integer constant that is printed with the 
STOP statement for ideritification. 
Examples: 
STOP 
STOP 25 
SUBROUTINE Statement 
General Form: SUBROUTINE name(a; ,a2,43,... an) 
where 
name is the SUBROUTINE name. 
a is adummy argument that can be a variable name, 
array name, or the dummy name of another SUBROU- 
TINE or FUNCTION subprogram, 
Examples: 


SUBROUTINE COPY(A,B,N) 
SUBROUTINE NULL 
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TRACE OFF Statement 


General Form: TRACE OFF 


Examples: 


200 X=Y¥+2 


210 X=Y-2 


* 


DEBUG TRACE 
AT 200 
TRACE ON 


AT 210 
TRACE OFF 
END 


TRACE ON Statement 


General Form: TRACE ON 


Examples: 


200 X=Y¥+2 


DEBUG TRACE 
AT 200 
TRACE ON 


END 


168 


WRITE Statement (Direct-Access) 
General Form: WRITE (u'r,f)} fist 
where 


u is an unsigned integer constant or INTEGER +4 variable 
that is the logical unit number of a direct-access file 


r is an integer expression that represents the relative 
position of a record within the file associated with u. 


f is optional and, if specified, is the statement number of 
the FORMAT statement that describes the data being 


written. 


list is an 1/O list {optional if f is specified). 


Examples: 


DEFINE FILE 8(500,100,L,1D1),9(100,28,L,1D2) 


8 WRITE (8°16,10)(M(K),K=1,10) 


11. WRITE (9‘1D2+5)A,B,C,D,E,F,G 


WRITE Statement (Sequential) 

General Form: WRITE (u,f) list 

where 
u is an unsigned integer constant or INTEGER *4 variable 
that is the logical unit number of a device to be written 
to. 
f is optional and can be the statement number of a 
FORMAT statement or an asterisk {*) for list-directed 


1/0. 


list is an 1/O list {optional if f is specified). 


Examples: 


WRITE (3,75) A,(B,(1,3),1=1,10,2),C 
WRITE (4) ARRAY 
WRITE (3,*) LN(I) 


Chapter 22. System/3 FORTRAN Intrinsic and External Library Functions 


Many commonly used mathematical functions or calcula- 
tions are provided by the System/3 FORTRAN IV language. 
Mathematical tunctions are called in two ways: explicitly, 
when you include the function name in a source language 
statement; and implicitly, when a certain notation (such as 
converting a real number to an integer number) appears 
within a source language statement. Explicitly called 
functions are known as external functions, because the 
programmer calls them. Implicitly called functions are 
intrinsic, because the compiler generates the calls to them. 


To a programmer using the System/3 FORTRAN IV 
mathematical functions, it is of no importance whether a 
specific function is intrinsic ot external unless you wish to 
detach the function name by specifying external. 


System/3 FORTRAN IV intrinsic functions include 
routines for determining maximum, minimum, and absolute 
values, converting from real to integer and from integer 

to real, and increasing or decreasing the precision of a 
number. External functions include sine, cosine, logarithm, 
and square root routines. 


Figure 27 summarizes the intrinsic functions: Figure 28, 
the external functions. Figure 29 lists the accuracy of the 
external functions. 


The following discussion describes the algorithms used in 
the mathematical subroutines. 


ALGORITHMS 


This section contains information about the method used to 
compute each function. The information for explicitly 
called subprograms is arranged alphabetically according to 
the specific function of each subprogram (that is, 
exponentiation, logarithmic, etc). 


Information for the implicity called subprograms is 
arranged alphabetically according to function, and 
alphabetically by entry name within that function. 


The presentation of each algorithm is divided into its 
major computational steps; the formulas necessary for each 
step are supplied. For the sake of brevity, the needed 
constants are normally given only symbolically. (The 
actual values can be found in the assembly listing of the 
subprograms.) Some of the formulas are widely known; 
those that are not so widely known are derived from more 
common formulas. The process leading from the common 
formula to the computational formula is sketched in 
enough detail so that the derivation can be reconstructed 
by anyone who has an understanding of college mathema- 
tics and access to the common texts on numerical analysis. 
All approximations were derived by the so-called “minimax” 
methods. The approximation sought by these methods can 
be characterized as follows. Given a function ffx/, an 
interval /, the form of the approximation (such as the 
rational form with specified degrees), and the type of error 
to be minimized (such as the relative error), there is 
normally a unique approximation to f(x) whose maximum 
error over / is the smallest among all possible approxima- 
tions of the given form. Details of the theory and the 
various methods of deriving such approximation are 
provided in the reference. @ The accuracy figures cited 
take round-off errors into account. Minor programming 
techniques used to minimize round-off errors are not 
described here. 


@ 


Any of modern numerical analysis texts can be used as a reference. 
Such texts are A. Ralston’s A First Course in Numerical 

Analysis (McGraw-Hill Book Company, Inc., New York, 1965), 
and C. T. Fike’s Computer Evaluation of Mathematical Functions 
(Prentice-Hall, Inc., Englewood Cliffs, New Jersey). 
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Entry Arguments 
Definition No. ype Range 0) 
Absolute value IABS y= ix! TI] INTEGER -4} Any INTEGER INTEGER +4] 
argument 
ABS 1[ REAL +4 |Any REAL “REAL “4 7 
DABS 1} REAL +8 argument REAL +8 | 
Maximum and MAX@ y=max (x,,..., Xn) | 224) INTEGER +4] Any INTEGER INTEGER «4 
minimum values MAXO 22) INTEGER *4j/argument INTEGER | 
AMAXO 22) INTEGER «4 | REAL +4 i 
MAX1 221 REAL *4 Any REAL INTEGER +4 
AMAX1 2241 REAL +4 fargument | REAL «4 | 
DMAX1 224) REAL «8 REAL +8 
MIN@) y=min(x,,..., Xn) | 22] INTEGER «4]Any INTEGER INTEGER +4 
MINO 24 INTEGER +«4] argument INTEGER +4 
AMINO 21 INTEGER +4 REAL +4 
MIN1 >2] REAL <4 [Any REAL INTEGER 
AMIN1 22| REAL +4 aryument REAL «4 
DMIN1 | 72] REAL +8 REAL *8 
Truncation y = (sign x) en 1 | REAL «4 Any REAL *4 | 
where 7 is the | 1] REAL «4 INTEGER *4 
largest integer < |x| | 1} REAL «8 INTEGER «4 
Modulo arithmetic y = remainder | 2) INTEGER «41x. 40 INTEGER *4 
xy 2} REAL «4 REAL «4 
a CaS, 2| REAL *8 REAL <8 
y = x, (modulo x, ) 
FLOAT Convert from INTEGER *4]Any INTEGER REAL. +4 
DFLOAT | INTEGER INTEGER 4) argument REAL *8 
io REAL 
Convert from REAL REAL +4 Any REAL INTEGER +4 
to INTEGER Lees argument 
Transfer of sign y = (sign xa) +x, 2] INTEGER -4!Any INTEGER INTEGER +4 






x, #0 argument 


2] REAL «4 [Any REAL 
2; REAL +8 argument 


¥ =x, -minkxy x3) INTEGER *4]Any INTEGER 















Positive difference 















argument 
2} REAL «4 Any REAL 
argument 
Obtain most 11 REAL +8 Any REAL 
significant part of « argument 
REAL argument 
Precision increase 1] REAL +4 Any REAL 
ee 


@ y= 1663 - (41-1679) for single precision and 1693 +4 -16°'*) for double Precision. 


@ Alias. This name can be used in place of the REAL «4 or INTEGER © 4 function name. 
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REAL *4 
REAL *8 





REAL «4 


a fs 


ens | 
| | Arguments |_Function Value Returned 






























































(in radians) 


Natural and LOG@ Jy = log. x 1 | REAL «4 x>O REAL +4 
common logarithm | ALOG or 1 | REAL +4 REAL *4 | ~ 180.218<y<] 
DLOG | y=in x 1 | REAL «8 REAL +8 174.673 
LOG10@1y = logyy x 1 x>0 - 78.268<y< 
ALOG10 1 75.859 
1 
Exponential 1 -180.218<x< O<y<y 
1 174.673 
Square root 1 x20 O<ysy 
i 1 
Acctangent 1 Any REAL REAL «4 eae ee 
Argument (in radians} 2 2 
1 REAL *8 














REAL *4 Ix} <(2?® . 
(in radians) 
REAL «8 


(int radians) 
REAL +4 
(in radians) 
REAL «8 

(in radians) 
REAL *4 
REAL «8 













ix] <(2°° + 7) 















Ixl<(2!8 . 


Sine and cosine | SIN ! y = sin x | 

S! 1 
Hyperbolic 4 
tangent 








Ix] <(2°° +m) 














Any REAL 
argument 





Notes: 


a) ¥ 16°? (1-16) for single precision and 16°° (1-16 4) for double precision. 
a) Alias. This name may be used in place of the REAL «4 function name. 
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1 
Function Name | Sample Type] Argument Range Maximum Root Mean Square | Absolute/Relative 
ALOG 541x107 240x107 
9.20 x 10* 2.89 x 10° Absolute 
5.45 x 107 P2710! 
ALOG10 554x107 1.22 x 107 
8.53 x 10% 3.10 x 10" Absolute 
ee 9.15 x 10" 2 S200" 
ATAN 1.08 x 107” 2.87 x 10° Fett 
Abs 7 
arise 9.53 x 10°7 ASP x10 oe 
cos Oxia 1.02 x 107 2.80 x 10” ccctat 
ws > 
m<x S100 1.13 x 105 3.02 x 10° ee 
DATAN Ox tan 1.0 223x10!’ 6.97 x 10 '* nance aien 
7 ( e 
tan 1.0<x< 100 2.13x 10°! 7.72% 10°!" ie 
DCOS U 244x190!’ 7.73x10'% 
ie : sang Absolute 
U 2.97 x 10 8.57 x 10 
DEXP U 151-x 10"* 3.06 x 1017 Sheik 
U Ixl < 170 1.09 x 10'° 2.65 x 10 '? as! 
DLOG U 0.177<x<05 1.34x10'° 5.13 x 107? 
U 05<x<15 2.61x10'7 9.04 x 10°'* Absolute 
U 15%x<5.0 1.36 x 10°'° 5.37 x 10°!’ 
DLOG10 U O.177<x<05 1.94x 10°!? 6.38 x 10°'* 
U 05<x<15 1.45 x 10!? 5.11x 107°* Absolute 
U 2.01 x10!" 6.37 x 10°'* 
DSIN U O<x<an 2.69 x 10!” 7.54x 10 '" muerte 
U m™<x< 100 2.96 x 10 '* 8.61 x 10'° 
DSORT E 16°°<x< 16°? 1.11x 101° 2.72x 101’ Relative 
DTANH U O0<x<0.55 1.44x 10°!’ 416x 10'% 
U 0.55<x<21.0 1.22x 10!’ 4.14x 10'% Absolute 
U 21.0<x < 32.0 1.14x 101 1.66 x 10°!” 
EXP U Ixi<1 4.63 x 107 1.29 x 10” Be fant 
U Ixl!< 170 473x107 1.16x 107 : 
SIN U O<x<a 1.06 x 10°” 3.02 x 10° ene 
U m<x< 100 1.13 x 10° 3.04 x 10° 
SORT E 16°° <x < 16°? 477x107 1.17 x 107 Relative 
TANH U O<x<0.55 5.40 x 10° 1.72 x 10° 
U 0.55 <x < 9.0625 5.77 x 10% 1.85 x 10% Absolute 
U 9.0625 <x < 16.0 2.68 x 10% 4.94 x 10° a 
@ E = exponentially distributed argument sampie 
U = uniformly distributed argument sample 


@) Sample arguments are distributed so that arctangents are uniformly distributed between arctan 1 and arctan 100. 


Figure 29. Accuracy of External Mathematical Functions 
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The accuracy of an answer produced by these algorithms is 
influenced by two factors: the performance of the subpro- 
grat and the accuracy of the argument. The effect of an 
argument error upon the accuracy of an answer depends 
upon the mathematical function involved and not upon the 
particular coding used in the subprogram. 


CONTROL OF PROGRAM EXCEPTIONS IN MATHE- 
MATICAL FUNCTIONS 


The FORTRAN mathernatical functions were coded with 
careful control of error situations. A result is provided 
whenever the answer is within the range representable in 
the floating-point form. !n order to be consistent with 
FORTRAN control of exponent overflow/underflow 
exceptions, the following types of conditions are recog- 
nized aid handled separately. 


When the magnitude of the function value is too large to be 
represented in the floating-point form, the condition is 
called a terminal overflow: when the magnitude is too 
small to be represented, a terminal underflow. On the other 
hand, if the function value is representable, but if execution 
of the chosen algorithm causes an overflow or underflow 

in the process, this condition is called an intermediate 
overflow or underflow. 


Function subroutines in the FORTRAN library are coded 
to observe the following rules for these conditions: 


1. Those arguments for which the answer can overflow 
are excluded from the permitted range of the 
subroutine, 


2, When the magnitude of the answer is less than 166° 
zero Is given as the answer. 
3. Algorithms which can cause an intermediate overflow 


have been avoided. Therefore an intermediate over- 
flow should not occur during the execution of a 
function subroutine of the library. 


4. Intermediate underflows are detected and not allowed 
to give an indication. In other words, spurious 
underflow signals are not allowed. Computation of 
the function value is successfully carried out. 


5. Terminal overflow conditions are screened out by the 
subroutine. The argument is considered out of range 
for computation and an error diagnostic is given. 
Terminal overflow conditions are handled by forcing 
a floating-point overflow exception. This provides 
for the detection of overflow in the same manner as 
for an arithmetic statement. Terminal overflows can 
occur in the function subroutines EXP and DEXP. 


6. Terminal underflow conditions are handled by forcing 
a floating-point underflow exception. This provides 
for the detection of underflow in the same manner as 
for an arithmetic statement. Terminal underflows 
can occur in the function subroutines EXP and 
DEXP. 


For implicit arithmetic subroutines, these rules do not apply. 


In this case, both terminal overflows and terminal under- 
flows cause respective floating-point exceptions. 
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EXPONENTIAL FUNCTIONS 


EXP, REAL*4 Exponential Function (Modute Names EXP,SFOMM,SFOMC) 


Argument Reduction 


Acceptable Range: Any argument that results in a function value that can be represented 
in REAL*4 format is valid. This range is approximately: 
-180,218 < argument < 174.673 


Error Conditions: \f the argument is tuo large, the overflow indicator is set on, and the 
result is the largest positive REAL *4 number. If the argument is too small, the underflow 
indicator is set on, and the result is zero. 


Reduction: The argument is multiplied by logs (e) and separated into integer and fraction- 
al parts for calling the module S$FOMC, which computes REAL #4 values of 2%. (SFOMC 
is described in /mplicitly Invoked Exponentiation Subprograms in this chapter.) 


Computational Method 


The result is computed by the 2* routine, with x = logs (e) - argument. This method 


depends on the identify: 
e@fgument = glog,(e) ‘argument 


DEXP, REAL*8 Exponential Function (Module Names DEXP,SFOMN,$FOMD) 
Argument Reduction 


Acceptable Range: Any argument that results in a function value that can be represented 
in REAL*8 format is valid. This range is approximately: 
~180.218 < argument < 174.673 


Error Conditions: \f the argument is too large, the overflow indicator is set on, and the 
result is the largest positive REAL*8 number. If the argument is too small, the under- 
flow indicator is set on, and the result is zero. 


Reduction: The argument is multiplied by log, {e) and separated into integer and 
fractional parts for calling the module $FOMD, which computes REAL *8 values of 2*. 
($FOMD is described in /mplicitly Invoked Exponentiation Subprograms in this chapter.) 


Computational Method 


The result is computed by the 2* routine with x = log, (e) argument. This method 


depends on the identify: 
ettgument — 9 log. (e) - argument 


LOGARITHMIC FUNCTIONS 


ALOG, REAL*4 Natural Logarithm (Module Names ALOG, $FOM5, $FOMI) 


Argument Reduction 


The range testing and argument reduction are done in module $FOMS, which also 
computes the logy of the reduced argument. 


Acceptabie Range: The argument must be a positive normalized number. Zero is not 
acceptable because the logarithm of zero is undefined. Negative numbers are not accep- 
table because the logarithm of a negative number is a compiex number with a nonzero 
imaginary pari. 


Error Conditions: {* the argument is zero, the result is set to the negative number with 
the largest possible magnitude, and bit 7 of the FTEST byte is set to 1. If the argument 
is negative, the logarithm of its magnitude is computed, and bit 7 of the ETEST byte is 
set to 1. 


Reduction: Tie argument is separated into two parts, c’ and m’, These are computed from 
the characteristic and the mantissa of the argument, c and m respectively, as follows: 

c' = 4(c-64)-a-% 

m' = im + 2° 
where a is the number of leading zeros in m. This produces c’ and m’ such that: 

-259% <0 < 251% 

A<Sm' <1 

The argument (representing the number 16(c-64) - |ml) can also be represented as: 

2° + S2-m’ 


Computational Method 


The logy of V2 +m’ is computed using the polynomial! approximation: 


1 Qin’ - 2/2) 2(m' - ¥2/2)\? 
SS PO Eis poy } pose Ges a) 


’ 2(m’ - ¥2/2)\4 2m = 12/2)" 
"Pa m'/2+v2/4)' 3 \mia+s2/4 


The log, of the argument is then c’ + log, (v2 -m’) so the result can be computed as: 


log, (argument) = log, (2) loge (argument) ; 
= log, (2) *(c +log, (J2 +m )) 
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ALOG10,REAL+«4 Base 10 Logarithm (Module Names ALOG10,$FOMK ,$FOM5) 


Argument Reduction 


Identical to ALOG, including the acceptable range and error conditions. 


Computational Method 


Identical to ALOG except for the last step, which is: 

log; o argument) = log; 9 (2) + (ce! + logy (2 -m’)) 
The only difference from the computation of ALOG is that log, 9 (2) is used instead of 
log, (2). 

e 


DLOG,REAL*#8 Natural Logarithm (Module Names DLOG, $FOMJ,$FOM6) 
Argument Reduction 
The range testing and argument reduction are done in module $FOM6, which also computes 
the log, of the reduced argument. The acceptable range, error conditions, and reduction 
are identical to those for ALOG, except that the reduced mantissa occupies 7 bytes 
instead of 3. 
Computational Method 
The log, of V 2 -m’ is computed by the same method as for ALOG, using a seventh 
order polynomial instead of a third order, as in ALOG, to achieve the accuracy required. 
The log, (argument) is then computed as: 

log, (argument) = log, (2) (c’ + log) (v2 +m’) 
DLOG10,REAL*8 Base 10 Logarithm (Module Names DLOG10,$FOML,$FOM6) 


Argument Reduction 


{dentical to DLOG, including the acceptable range and error conditions. 


Computational Method 


Identical to DLOG except for the last step, which is: 

log, 9 (argument) = log; 9 (2) *(c’ + logs (V2 -m’)) 
The only difference from the computation of DLOG is that {og; 9 (2) is used instead of 
log, (2). 

€ 


TRIGONOMETRIC FUNCTIONS 


SIN/COS, REAL +4 Sine/Cosine (Module Names SIN,COS,$FOM1,$FOM3) 


Argument Reduction 


Acceptable Range: The sine/cosine routine accepts normalized arguments in the range 
jargument| <7 -2)8 =g - 105 

and zero. Arguments outside this range are not accepted because they are not precise 

enough to yield a meaningful result after the argument is reduced to the principal range. 

This range limit is not Cue to a limitation of the algorithm used. Rather, it is a 


consequence of the periodicity of the trigonometric functions and the representation used 
for REAL*4 numbers. 


Error Conclitions: \f an argument is out-of-range, a zero result is returned, and bit 6 in 
the FTEST isyte is set to 1. 


Reduction: The argument is separated into two parts after multiplying its absolute value 
by 4/n. Let q be the integer part of the result, and r be the fractional part of the result. 
If x is the argument 


sin Mays) a § SID T : 4 _ sin is 
Jost 0 ee ir {ixt pt boa 1p) 


Negative arguments are treated by adding 4 to q if the function desired is SIN, since 

sin (=x) = sin(x + 7) = sin(x + ar). No change is required for COS, since cos (-x) = 
cos {x}. 

The computation of COS is transformed into the computation of SIN by adding 2 to q, 
since cos (x) = sin (x ++) = sin (x + 2( 4 )) 


Let dy =q mod 8. ' 
Then, for qg = Q, sin (x) = sin ‘Gs r) : 


4 
do = 1, sin (x} = cos Cs (1 - n)), 
Qo = 2, sin (x) = cos (4 -r) ; 
dg = 3, sin (x) =sin (3 (1 -r)) , 
Go = 4, sin (x) = -sin( 4 r) , 
do = 5, sir (x) = -cos( 4 (1 - ) ‘ 
do = 6, sin (x) = -cos(4 : r) , 


Go = 7, sin (x) = -sin(4 (1- ) : 


5 . f T 
These formulas reduce each case to the computation of either sin (F “Ty ) or cos 


1 Bata ee 
(G . n) ; where 1, is either r or (1 -r), and is within the range, O<r, <1. 
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Computational Method 


. fh ‘ : 

sin (a . r1) is computed by a polynomial of the form: 
; T \ 
sin (4 hi) =r, (ag tary? tagr,* tagr,°). 


1 : : 
cos G 7 rn) is computed by a polynomial of the form: 


TT 
cos Ge e n) =1 +byry? +bor,4 +b3r,° +bgr,® 


These polynomials are computed by calling module $FOM3. 


ATAN, REAL#4 Arctangent (Module Names ATAN,$FOME) 


Argument Reduction 


Acceptable Range: Any argument in the range representable in REAL *4 format is valid. 


Error Conditions: None. 
Reduction: The magnitude of the argument x is used to determine two numbers, A and 
Z, as follows: 


for tan (0) < |x} < tan (5) ,A=0,z =|x| - tan (0) = 1x! 


for tan (7g) <Ixi <tan (=) ,A=7/8,2= |x| -tan (3) 
for tan (32) < xi < tan 2z) A= 1/4, 2 = |x| - tan (5) 
for tan (FE) <Ix1 < tan 4) /A=3n/8,2=\x\-tan (3) 
for tan (22) <ixi <tan (Z) ,A=a/2,2=- 


Computational Method 


Let y = tan?! (|x/). Then, using the formula for the tangent of the difference of two 
angles, the following identity can be derived: 


os -1 (__tan(A) - tan(y) \ _ 1 ee 
oe ( + tan(A) antl) So Ge tae 2 “antai) 


This formula is used for A = ji 


8 ee gues _ with the arctangent being approximated by 
the polynomial 


8 
tan’! (R) = R (pp +p, *R? +p. °-R* +p; °R®) 

For A -(5). since tan”! (|x{) =(5) tan! (= =) the formula is 
y=A+tan?! (z) 


Finally, if the argument was negative, the result is made negative, because tan’! (-x) = 
-t 
- tan” (x) 


DSIN/DCOS, REAL+8 Sine/Cosine (Module Names DSIN, DCOS,$FOM2,$FOM4) 
Argument Reduction 


Acceptable Range: The precision available in REAL*8 variables allows an acceptable 
range of arguments of normalized values in the range 

jargument| < 7 +25° = 3 -10!5 
and zero. See the description of SIN/COS for a discussion of the reasons for this range 
limit. 


Error Conditions: Same as SIN/COS. 


Reduction: Same as SIN/COS except that the reduction is carried out in REAL*8 arith- 


metic. 


Computational Method 
sin ‘. : ri) is computed by a polynomial of the form: 


em 12 
sin (ez . rn) =r, (ayy? tage, * +a3r, 6 +agry® +agry!? + age, !2) 


T 
cos 7 . r) is computed by a polynomial of the form: 


a ? 2 14 
cos (> : 1) = 1 +byr,? + bor, 4 + bgry% +bgr® + bor? + ber, !? + bar, 


These polynomials are evaluated by calling module $FOM4. 
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DATAN, REAL«8 Arctangent (Module Names DATAN,S$FOMF) 


Argument Reduction 


Acceptable Range: Any argument in the range representable in REAL#8 format is valid. 


Error Conditions: None. 


Reduction: The magnitude of the argument, x, is used io determine two numbers, A and 
Z, as follows: 


> 


fer tan (0) < |x| < tan(55) _A=0,z = |xj - tan (0) = |x| 


20 


Tt 37 1 T 
zy a < ame eS = eo — 
for tan G) Ix| < tan (55) LA 10 _zZ= |x| - tan (Ge) 
st tt tt : ( 
ey ce ue et ii: a 
for tan (3 1x] < tan (= ) LA 5° Z = {x| - tan 5 ) 
for tan Ge S |x} < tan (3) Azet z = [xj - tan (=) 
ap 20 70 10 
Oe 2g Qn 22h oe 2n 
for tan (53) < |x| < tan (sa) ,A= 5 ,Z= |x| - tan ( 5 ) 
On tt 1 1 
for tan(S") < x lee + f53 2 sl 
or tan 0 |x| < tan e ) LA 9 22 xl 


Computational Method 


The computation is by the same method as for ATAN, except that the polynomial 


approximation for tan”! is 


tan! (R) = Ri(po + py -R? + Po *R4 +p; “R° +p, > R® +p, -R!° + pg -Ri? +p ~R!4) 


SQUARE ROOT FUNCTIONS 
SQRT, REAL+4 Square Root (Module Names SORT and $FOMG) 


Argument Reduction 


Acceptabie Range: The square root routine successfully computes the square root of 
any nonnegative number representable in REAL*4 format. Negative numbers are out- 
of-range since the square root of a negative number is imaginary. 


Error Conditions: \f the argument is negative, bit 5 in the FTEST byte is set to 1, and the 
square root of the aryument’s magnitude is taken. 


Reduction. \f the argument is zero, a zero result is returned immediately. Otherwise, 
the characteristic of the argument is tested. If it is even, no change is made to the 
mantissa. {f it is odd, the mantissa is divided by 16. A divide instruction is not used to 
perform this division; the operand is shifted by additions. 


Computational Method 


The characteristic, c, of the result is computed as: 
c(result) = clargument)/2 for c(argument) even 
c(result) = (1 + clargument))/2 for c(argument) odd 


The mantissa, m, of the result is the square root of the mantissa of the reduced argument. 
Because: 

1/256 < m(reduced argument) < 1, 

1/16 <.mfresult) <1, 
and the result is therefore a normalized REAL*4 number. 


This method reflects the identities: 


Ly, VY 


[ sgetarument : mntargument) | [ igetareumens | . [ ailranaene | for c(argument) even 


{i 


i 
4 lo 


Yy 
[ pecargument) m(argument) | 


ill 


% 
[16 = cfargument) | -[ mtargument)/16 | for c(argument) odd. 
The square root of the reduced mantissa is computed by a series of successive subtrac- 
tions, with each set of subtractions determining one hexadecimal digit of the result 
from two hexadecimal digits of the argument’s reduced mantissa and remainder (if 
any) and the results from the previous sets of subtractions. This method is similar to the 
normal method for the hand extraction of square roots. At the completion of the 
subtractions, at least 21 binary digits of the result are correct. A correction to the last 
binary digits is computed and applied if necessary. 


Accuracy 


The method produces the correct result in the characteristic and the correct result, 
rounded to 6 hexadecimal digits, for the mantissa. 
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DSORT, REAL*«8 Square Root (Module Names DSQRT and $FOMH) 

Argument Reduction 

Identical to that for SORT except that the argument is in REAL*8 format. Acceptable 
range and out-of-range action are the same. 

Computational Method 

Identical to SORT except that 14 hexadecimal digits are developed in the result mantissa, 


and the subtractions are carried out only to the precision necessary at each stage in the 
development of the result mantissa. 


Accuracy 


The method produces the correct result in the characteristic, and the correct result, 
rounded to 14 hexadecimal digits, for the mantissa. 


HYPERBOLIC TANGENT FUNCTIONS 
TANH, REAL*#4 Hyperbolic Tangent (Module Names TANH,S$FOMO,$FOMM) 
Argument Reduction 


Acceptable Range: Any number representable in REAL*4 format is acceptable. 
Error Conditions: None. 
Reduction: None. 


Computational Method 


In the range |x} < .55, tanh x is computed with the approximation: 


x )] 


Co +03 *x 
In the range .55 < |x| < 9.0625 the approximation is: 


5 x 


tanh(x) = x + [T= x? +(e, 


tanh(x) & sign (x) | 5 -. ie 

SNS SUEUR Oae Nea oe n| 
kes Z 

where z = e2{t/2 In3 - x) 

The REAL*4 exponential module, $FOMM, is used to compute e 


For |x; < 9.0625, tarih(x) = sign (x} + 1.0 


2 Ix] 


DTANH, REAL +8 Hyperbolic Tangent (Module Names DTANH,S$FOMP,$FOMN) 
Argument Reduction 


Acceptable Rarige: Any number representable in REAL*8 format is acceptable. 
Error Conditions: None. 


Reduction: None 
Computational Method 


in the range |x| < .55, tanh x is computed with the approximation: 


- 2 2 
Sone Gg aot. ht Oy eR eg Pee: | 
tanh (x) = x nme iz +x? (d, +x? (d +x?) 


In the range .55 < {x| < 21.0, the approximation is: 


Ve aie Tee peteshe. £55 x 
tanh (x) = sign (x) | 5 a8 75 + 25, D 


wheres age ie m3 =x) 


The REAL*8 exponentiation module, $FOMN, is used to compute e” Ix] 
For |x| > 21.0, tanh (x} = sign (x) ° 1.0. 
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IMPLICITLY INVOKED EXPONENTIATION SUBPROGRAMS 
$FOM7, Subprogram for l**«J (Module Name $FOM7, Secondary Entry Point #FOM7) 
Argument Reduction 


Acceptable Range: Any pair of arguments for which the result does not exceed the 
integer range is valid, except that | = 0 and J < O are invalid. - 


Error Conditions: \f 1 =0 and J<0, bit 3 in the FTEST byte is set to 1, and a result of 
zero is returned. No indication is given if the result exceeds the integer range. This range 
is: 

- 2°! < Result < 23! - 1 for Integer *4 

- 2'% < Result<2!5 ~1 for Integer *2 


Reduction: No reduction is performed other than the check for invalid arguments. 


Computational Method 


Five special cases are checked first: 

lf |=0,J > 0, the result is zero. 

If 140, J =0, the result is 1. 

If 1 = 1, the result is 1 for any J. 

If 1 =-1, the result is -1 for J odd, + 1 for J even. 

If 14 1,J<0,the result is zero. 
If none of these special cases exists, J is positive and the result is computed as follows: 
Set a partial result equal to |, then scan J for its leftmost bit having the value 1. For 
each bit position in J to the right of the leftmost 1 bit, square the partial result, and if 
the bit is a 1, multiply the partial result by |. This method is based on the identity: 


1) = {Gao *23° +j29 229 +... + jg +29) 
= (130299 « (yi29)2?9 .. (yi0y2° 
= ((.. _ (130)? ‘ 292 eee yes jJo 


where J indicates the bits of J, with Jo being the rightmost bit. The partial result be- 
comes the final result when ail the bits of J are processed. The method is the same for 
INTEGER *2 operands, except that the operands contain fewer bits, and a secondary 
entry point to the module is used. The compiler uses the entry point #FOM7 when J is 
INTEGER *2, regardless of the length of |. | is always in INTEGER*4 form for this 
module as a result of the automatic extension of INTEGER*2 to INTEGER «4 when the 
register is loaded before this module is invoked. 


Accuracy 


The result is exact, provided that the result does not exceed the allowable range. 


$FOMB8, Subprogram for Ax*J (Module Name $FOMS8) 
Argument Reduction 
Acceptabie Rarige: Any pair of arguments that produces a result representable in REAL*4 


format is acceptable, except that argument pairs for which J is negative and the result’s 
magnitude is in the range [166° (16°? (1-16°°))!] are not acceptable. 


‘ror Conditions: \f A = 0.0 and J< 0, bit 2 of the FTEST byte is set to 1, and the 
result is set to 0.0. Other out-of-range conditions are handled as follows: 






|A] > 1.0 







Overflow Indicator On 
[Result] = 16°? (1-16°) 


Underflow Indicator On 
+Result| = 0.0 






Overflow indicator On 
|Result| = (16°? (1-16%)] 7! 


Underflow tndicator On 
Divide Check 

Indicator On @ 
{Result; = 1.0 


@ 


The result of 1.0 is due to a division of 1.0 by the zero resulting from the 
underfiow when Al lis computed. 


Reduction: No reduction is performed on the arguments after the test for A = 0.0 
and J<0. 


Computational Method 


The arguments are tested for these special cases: 

!f A =0.6 and J >, the result is 0.0 

if J = 0, the result is 1.0 
Otherwise, A**)J| is computed using the same method as for integers in $FOM7, except 
that REAL#4 arithmetic is used for the multiplications. Then, if J were negative, the 
reciprocal of the result is taken. If J is INTEGER *2, it is extended to INTEGER +4 by 
the instruction that loads J before this module is invoked. 


$FOMS, Subprogram for D¥+*J (Module name $FOM9) 


Identical to $FOM8 for A**J except that the arithmetic and results are REAL *8 and 
the range limit of the result is [16°° (1-1647)] 7? when J < 0 and |D| < 1.D0. 


System/3 FORTRAN Intrinsic and External Library Functions 185 


186 


$FOMA, Subprogram for A**B (Module Names $FOMA,$FOM5,$FOMC) 


lf Ais not REAL*4, the compiler inserts instructions to convert A to REAL*4 format 
before $FOMA is invoked. Thus, $FOMA itself computes only (REAL «4)«*(REAL +4). 


Argument Reduction 


Acceptable Range: For A > 0, the value of B must produce a result representable in 
REAL *4 format. For A 0,B must be greater than zero. A << 0 ts invalid. 


Error Conditions: WA 2 O and the result is too large, the overflow indicator is turned 
on and the result ts set to the largest positive REAL *4 number. If A > 0 and the result 
is too small, the underflow indicator is turned on and the resultis set to zero. tf A = 0 
and B is negative, bit 1 in the FTEST byte is set to 17 and the result is set to zero. If 
A~<0, bit 7 in the FTEST byte is set to 1 and the absolute value of A is used. In this 
case, underflow or overtlow can also occur if the result is too small or too large, 
respectively; the results are the same as for A < 0. 


Reduction: No reduction is performed in this module. 


Computational Method 
The method is based on the identity 

Ae = gb slogga 
The REAL +4 log, module, $FOMS, is called with A as the argument. The result is 
multiplied by B and passed as the argument to the REAL *4 2% module, $FOMC. This 
result is then returned as the result of the exponentiation. 
$FOMB, Subprogram for Ax*B (Module Names $FOMB,$FOM6,$FOMD) 
If Ais REAL «4, or if B is INTEGER*2, INTEGER*4, or REAL «4, the compiler inserts 
instructions to convert them to REAL*8 format before $FOMB is invoked. Thus, 
$FOMB itself computes only (REAL «8)**(REAL*8). 


Argument Reduction 


The range, error conditions, and argument reduction are identical to those for the 
REAL*4A**B module, $FOMA, except that: 


1. The result can be slightly greater without overflow since the largest REAL *8 
number is larger than the largest REAL*4 number. 


2. The targest positive REAL*8 number is the result in case of overflow. 


Computational Method 


The method is identical to that for the REAL*4A**B module, $FOMA, except that the 
REAL*8 modules for 2* and log,, $FOMD and $FOM6, are used. 


$FOMC, REAL#4 Subprogram to Compute 2* (Module Name $FOMC) 
Argument Reduction 


Acceptable Range: Any argument that results in a function value that can be represented 
in REAL#4 format is valid. This range is approximately: 
-260 < x < 252 


Error Condition: \f x is too large, the overflow indicator is turned on and the result is 
the fargest positive REAL+*4 number. If x is too small, the underflow indicator is turned 
on and the result is zero. 


Reduction: The argument is received in two parts, an integer part, i, and a fractional 
part, f. The fractional part is brought into the range [-%,%] by computing i’ and f’ 
as follows: 
iff >, f =f-1 andi’ =i+1 
if f<-%, f'=f+ andi’ =i+1 
otherwise f’ = f andi’ =i 
Then i’ is separated into two parts, iy , and i’), which satisfy the relation 
i=4-+i,,+i) with-4<i, <-1 
The desired result can be written: 
gx agi thoi th of?) tP 240 2 gli. gi2 of 


Computational Method 


Compute 2f’ using the approximation: 


a (gaat a ) 
22148 °( Siar) aT ar) PPT 
Where 


P ((2f)?) =po +p, + ((2F")?) 
Q ((2f')?) = qq +a, ° ((2F')?) 


Multiply the result by ote and multiply that result by 1611 by adding i, "to its charac- 
teristic. 
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$SFOMD, REAL*«8 Subprogram to Compute 2* (Module Name $FOMD) 


Argument Reduction 


The argument reduction, range, and error conditions are identical to those for the 
REAL+*4 2* subprogram, $FOMC, except: 


1. The upper limit of the range is slightly greater, since the largest REAL *8 number 
is greater than the largest REAL*4 number. 


2. The result for an argument too large is the largest REAL*8 number. 


Computational Method 


The method is the same as for the REAL*4 2* subprogram, except that one more term 
is used in the polynomials P and Q: 


P ((2#)?) = po + py ((2f)?) + pp ((2¢)? ie 
QO ((2f)?) = qo + q, ((2F)?) + py ((2F)?) 


MACHINE INDICATOR TEST SUBPROGRAMS 


The machine indicator subprograms test the status of pseudo- 


indicators and return a value to the calling program. When 
tne indicator is zero, it is off; when the indicator is other 
than zero, it ison. In the following descriptions of the sub- 
programs, / represents an integer expression and / represents 
an integer variable. 


Pseudosense Light Subprogram (Entry Names: SLITE/ 
SLITET) 


This subprogram is used to alter, test, and/or record the 
status of pseudosense lights. Either of two entry names 
(SLITE or SLITET) is used to call the subprogram. The 
particular entry name used in the CALL statement depends 
upon the operation to be performed. 


If the four sense lights are to be turned off or one sense 
light is to be turned on, entry name SLITE is used. The 
source language statement is: 


CALL SLITE (i) 
where i has a value of 0, 1, 2, 3, or 4. 


If the value of i is O, the four sense lights are turned off; if 
the value of i is 1,2, 3, or 4, the corresponding sense light 
is turned on. If the value of i is not O, 1, 2, 3, or 4, halt 
code 14 is issued and execution of this module or phase 

is terminated. 


If a sense light is to be tested and its status recorded, entry 
name SLITET is used. Regardless of its status before the 
test, after a sense light is tested, it is always set off. The 
source language statement is: 


CALL SLITET (i,j) 
where 


i has a value of 1, 2, 3, or 4, and indicates which sense 
light to test. 
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Note: \f the value of i is not 1,2, 3, or 4, halt code 
15 is issued and execution of this module or phase is 
terminated. 


j has a value returned by the subprogram. 1 indicates 
the sense light was on; 2 indicates the sense light was off. 


Divide Check Subprogram (Entry Name: DVCHK) 


This program tests for a divide-check exception (divisor 

= zero) and returns a value that indicates the existing condi- 
tion. After testing, the divide-check indicator is turned 

off. This subprogram is called by using entry name DVCHK 
ina CALL statement. The source language statement is: 


CALL DVCHK (j) 


where j is set to 1 if the divide-check indicator was on, or 
to 2 if the indicator was off. 


Overflow Indicator Subprogram (Entry Name: OVERFL) 


This subprogram tests for an exponent overflow or under- 
flow exception and returns a value that indicates the exist- 
ing condition. After testing, the overflow indicator is turned 
off. This subprogram is called by using the entry name 
OVERFL ina CALL statement. The source language state- 
ment is: 


CALL OVERFL (j) 


where j is returned by the subprogram to indicate the 
following: 


1 = floating-point overflow condition occurred last. 


2 = no overflow condition occurred. 
3 = a floating-point underflow condition occurred last. 
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UTILITY SUBPROGRAMS 


The utility subprograms perform the following operations 
for the FORTRAN programmer: 


@ Terminate execution (EXIT) 
© Dump a specified area of storage (DUMP/PDUMP) 


@ Test the bits of a setting of the address/data switch on 
the System/3 console (DATSW) 


@ Test an error indicator (FCTST), 
@ Test for an inquiry request (INOCHK/SETINQ) 


© Retrieve the system date and time-of-day (CFTOD). 


End Execution Subprogram (Entry Name: EXIT) 


The end execution subprogram terminates execution and 
returns control to the operating system. (EXIT performs 
a function identical to that performed by an unnumbered 
STOP statement.) This subprogram is called by using the 
entry name EXIT ina CALL statement. The source 
language statement is: 


CALL EXIT 


Storage Dump Subprogram (Entry Names: DUMP/PDUMP) 


This subprogram dumps a specified area of storage. Either 
of two entry names (DUMP or PDUMP) can be used to call 
tne subprogram. The entry name is followed by the limits 
of the area to be dumped and the format specification. The 
entry name used tn the CALL statement depends upon 
whether you want to resume execution of the FORTRAN 
program after the dump. 


If execution of the load module or phase is to be terminated 
after the dump is taken, entry name DUMP is used. The 
source language statement is: 


CALL DUMP (a, ,b;,f),... Ay Dy Fy) 

where 
a and b are variables whose names indicate the limits of 
storage to be dumped (either a or b can be the name of 


the upper or lower limit of storage), which must be in 
the same program or subprogram or in common: 
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f indicates the dump format and can be one of the 
following: 


O = hexadecimal 
3 = INTEGER+#2 
4=INTEGER#4 
5 = REAL#4 
6 = REAL+8g 


Any positive number other than the preceding results in a 
hexadecimal dump, provided the number is less than 256. 
(The low-order byte of this argument is all that is used. If 
the number is negative or greater than 255, you must deter- 
mine the bit pattern in the low-order byte to determine the 
dump format.) 


When hexadecimal format is used, the dump program 
assumes that the upper limit of the dump is a variable 8 
bytes long. If it is actually 2 or 4 bytes long, the last 6 or 

4 bytes of the dump (respectively) are not part of the upper- 
limit variable. 


lf execution is to resume after the dump is taken, entry 
name PDUMP is used. The source language statement is: 


CALL PDUMP (a,,b,,f,,.-., an,bn,fn) 


where a, b, and f have the same meanings as for DUMP. 


DUMP/PDUMP output is directed to the FORTRAN error 
logging device. See PRINT and NOPRINTER Device 
Option Statements for more information. 


DUMP/PDUMP Programming Considerations 


A load module or phase can occupy a different area of 
storage each time it is executed. To ensure that the appro- 
priate areas of storage are dumped, the following conven- 
tions should be followed. 


Transaction Logging Subprogram (SUBR81) 5704-FO2 
oniy 


This subprogram is used with $TRLOG to log transaction 
oriented data to tape. The source language statement is: 


CALL SUBR81(i,)) 


where 
iis an integer *2 variable or array element and must 
contain the length of the data to be logged. The length 
must not exceed 2,040 bytes. 


j is a variable, an array element, or an array containing 
the data to be logged. 


For additional information about transaction logging 
(STRLOG), see /BM System/3 Model 15 System Control 
Programing Concepts and Reference Manual, GC21-5162. 


Example: 


INTEGER*2 LGTH 
INTEGER*4 LOGDAT(32) 
DATA LGTH/128/ 


CALL SUBR81 (LGTH,LOGDAT) 


CALL SUBR81 (LGTH,LOGDAT) 


If an array and a variable are to be dumped at the same 
time, a separate set of arguments should be used for the 
array and for the variable. The specification of limits for 
the array should be from the first element in the array to 
the last element. For example, assume that B is a REAL 
number, and TABLE is an array of 20 elements. The 
following call to the storage dump subprogram could be 
used to dump TABLE and B in the hexadecimal format 
and teminate execution after the dump is taken: 


CALL DUMP(TABLE(1), TABLE(20),0,8,B,0) 


lf an area of storage in common is to be dumped at the 
same time as an area of storage not in common, the argu- 
ments for the area in common should be given separately. 
For example, assuming A is in common and B is not, the 
following call to the storage dump subprogram should be 
used to dump the variables A and B in REAL*8 format 
without terminating execution: 


CALL PDUMP(A,A,6,B,B,6) 
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If variables not in common are to be dumped, each variable 
must be listed separately in the argument list. For example, 
if R, P, and Q are not in common, the statement: 


CALL PDUMP(R,B,5,P,P,5,0,0,5) 
should be used to dump the three variables If the statement 
CALL PDUMP(R,Q,5) 


is used, all main storage between R and C18 dumped, which 
might or might not include P, and might include other 
variables. 


lf an array and a variable are passed to a subroutine as 
arguments, the arguments in the call to the storage dump 
subprogram in the subroutine should specify the parameters 
used in the definition of the subroutine. For exarpie, if 
the subroutine SUBI is defined as: 


SUBROUTINE SUBI (X,Y) 
DIMENSION X(10) 


and the call to SUB! within the source module is: 


DIMENSION A(10) 


CALL SUBI (A,B) 


then the following statement should be used in SUBI to 
dump the variables in hexadecimal format without termi- 
nating execution: 


CALL PDUMP (X(1),X(10),0,Y,Y,0) 
If the statement 


CALL PDUMP(X(1),Y,0) 


is used, all storage between A(1) and Y is dumped because 
of the method of transmitting arguments. 
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Address/Data Switch Subprogram (Entry Name: DATSW) 


This subprogram tests the setting of the address/data 
switches. The four address/data switches correspond to 16 
binary switches, numbered 0 to 15 from left to right, as 
shown in Figure 29, The binary switches 0-15 are either 
off (0) or on (1) depending upon the hexadecimal setting 


of the address/data switches. 


Address/Data 
Switch # 


Binary 
Switch # 4 
{i) 


ADDRESS 








8 9 1011 





12 13 1415 





ns no 
Setting of 


Address/Data | 
Switch 0 
(hexadecimal) | 
Setting of 
the Corres- 
ponding 16 _—— 
Binary Switches |0 0 0 0 





Figure 29, Address Data Switch Settings 


in Figure 29, the address/data switches are set to: 


0800 








Therefore, only binary switch 4 is on (1), and the other 


binary switches are off (0). 


The DATSW subprogram is called by the FORTRAN state- 


ment: 
CALL DATSWii,j) 


where 


i is an INTEGER“4 constant, expression, or variable in 
the range 0 to 15, indicating the binary switch to be 


tested. 


Note: \f i is outside the permitted range, halt code 


RF7, subhalt 16 is issued. 


jis an INTEGER «4 variable, which is set to 1 if the value 
of the tested binary switch was 1, or is set to 2 if the 


value of the binary switch was 0. 
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Example: 


Setting of address/data 4 A 7 0 
switches 


Setting of the corres- 
ponding binary 
switches 0100 1010 0111 0000 
Here, binary switches 1, 4, 6,9, 10, and 11 are on (are 1). 


Therefore, 
CALL DATSW(4,J) 
would set J to 1, and 
CALL DATSW(5,J) 
would set J to 2. 


CAUTION 

Binary switches 12-15 should be used with care on the 
Model 10 because the rightmost console dial must be used 
in replies to system halts, and might be changed during the 
execution of a program. 


Example: 


PAUSE 55 
CALL. DATSW(13,J) 


The PAUSE statement requires a replay of 0 to continue 
processing, causing binary switches 12, 13, 14, and 15 to 
be set off (to 0). 


Library Function Error Subprogram (Entry Name: FCTST) 


This subprogram is used to test an indicator word for an 
error in a library function subprogram. After testing, all 
conditions are turned off. The subprogram is called by 
writing the FORTRAN statement: 


CALL FCTST{j,k) 
where 


j is set to 1 if any bit in the indicator word is on (1), or 
to 2 if all the bits in the indicator word are off (0). 


k is the indicator word. The error indicator is returned 
as the rightmost byte of this word (bits 24-31). The 
other bytes are zero, 


The errors that can be detected are shown in Figure 30. 


The value of the error word can be 1, 2, 4, 8, 16, 32, 64, 
or 128, or the sum of 2 or more of these numbers if more 
than one error condition occurred. In such a case, the 
value returned is the sum of the integers associated with 
the individual conditions. For example, if an error was 
detected in DSIN (value 2}, and an error was detected in 
SORT (value 4), the value of k is 6. 
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Value 
(decimal) 






a 


ALOG/DLOG 
Real to Real negative base and 
exponentiation nonzero exponent 
SIN/COS 


2 DSIN/DCOS 


4 SQRT/DSORT 


Largest negative value 












Absolute value of argument used 
for evaluation 







Absolute value of argument used 
for evaluation 














argument magnitude 
exceeds 7 +218 





argument magnitude 
exceeds 7 °2°° 

























argument <0 Absolute value of argument used 


for evaluation 


























Real to Integer overflow on conversion Maximum value of appropriate 
conversion sign 
16 Integer to Integer base = 0 and exponent Zero 
exponentiation <0 
32 Real to Integer base = 0 and exponent Zero 
exponentiation <0 







Real to Real 
exponentiation 


128 


base = 0 and exponent Zero 
<0 


Character treated as zero 






Invalid input character 
to a conversion routine 


Note: For exponentiation routines, the error can occur for any length item, that is, for 1*2, 1*4, R*4, and 
R*8, where applicable. 


Figure 30. Error Conditions that can be Tested in FCTST 


ROLLOUT Support Subprogram (Entry Name: INOCHK) 


System/3 Models 6, 10, 12, and Model 15 with Program 
Number 5704-FO1 ailow programs to be interrupted 
{ROLLOUT/ROLLIN} whiie ihey are being processed: 
Model 15 with Program Number 5704-F G2 does not. 


To request an interruption: 


Madel 6 Set the INOUIRY REQUEST switch 
to ON. 

Modets 10 Press the REQUEST key on the 

and 12 printer keyboard. 


Model 15 with 
Program 
Number 
5704-FO1 


Press the PF10 key, issue ROLLOUT 
via the keyboard, and press ENTER. 


Programs are normally interrupted to permit another pro- 
gram to run. After this program is run, control is then 
given back to the original program (the one that was 
interrupted). 


For more information about the ROGLLOUT/ROLLIN 
routines, see the appropriate operator's guide listed under 
Related Publications in the Preface. 


The subprogram iNOCHK allows the user to interrupt the 
| executing FORTRAN program in order to execute another 
program. Calls to INQCHK should be placed at appro- 
priate points in the interruptable program, so that the 
interrupt request is serviced within a reasonable interval. 
The INQCHK subprogram has no parameters. The format 
of the source language statement is: 


CALL INOCHK 


If no inquiry is pending, the subprogram immediately 
returns Control to the interruptable program. If an interrupt 
request has been made: 


1. A system control program ROLLOUT routine moves 
the interrupted primary program from main storage 
to disk. 

| 2. The desired secondary program is processed; this pro- 


gram cannot be interrupted. 


| 3. After the secondary program has been executed, the 
interrupted program moves back into main storage 
using 4 ROLLIN routine. The interrupted program 
resumes execution at the point beyond the call to 
tNOCHK and terminates in a normal manner. 


Notes: 

1. In the dual programming mode, only program level 1 
or partition 1 programs can be interrupted and moved 
out of main storage by a ROLLOUT routine. 

2. The Model 15 with Program Number 5704-FO2 pro- 
cesses programs containing the CALL INOCHK state- 
ment but the ROLLOUT/ROLLIN routine is replaced 
by a simple return-to-caller statement in subroutine 
INOCHK. 


Inquiry Support Subprogram (Entry Name: SETINQ) 


A FORTRAN program can be made an INQUIRY 
(I-TYPE) program by inserting a CALL SETINQ statement 
in the source program. The CALL SETINQ statement 
should be the first executable statement in the program. 
The SETINO subprogram has no parameters. 


Inquiry programs are usually used on systems with multiple 
program levels; however, they can be used on systems with 
only one program level. An inquiry program is in main 
storage and is executed when an inquiry request is made 
by one of the following procedures: 

Model 6 = Set the INQUIRY REQUEST switch to 
ON. 


Models 10 Press the REQUEST key on the printer 
and 12 keyboard. 


Model 15 Press the PA1 key. 


For further information, see the appropriate operator’s 
guide under Related Publications in the Preface. 
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Date/Time-of-Day Subprogram (Entry Name: CFTOD) 


Note: The interval timer is available as a feature only on 
the Mode! 15. On the Model 10, the interval timer is 
available as ahardware RPO (RPQ WE0922): and the 
CFTOD subprogram is available as a programming RPO 
(RPO 5799-WGY). 


The CFTOD subprogram makes available the date and 
time-of-day. It is called by using the entry name CFTOD 
ina CALL statement. The source language statement is: 


CALL CFTOD (date,time[,1]) 


where 


date must be the name of a one-dimensional, three 
element, INTEGER”2 array 


time must be (1) the name of a one-dimensional, three 
element, INTEGER *2 array if the third operand is 
omitted, or (2) the name of an INTEGER “4 variable if 
the third operand is included 


1 is the constant 1. When this optional operand is 
coded, the time returned is in timer units. When it is 
omitted, the time returned is in hours, minutes, and 
seconds. 


The date is incremented by one day at midnight. The date 
returned in the three-element array is the system date that 
was set at IPL time—either day, month, year (DDMMYY), 
or month, day, year (MMDDYY), depending upon the 
option chosen at system generation. 
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Examples are: 


@ For DDMMYY format March 14, 1974 would be returned 
as 140374. 


@ For MMDDYY format March 14, 1974 would be returned 
as 031474. 


The time (when the third operand is omitted) is returned in 
hours, minutes, and seconds (HHMMSS) where the first 
element of the array contains the hours, the second element 
contains the minutes, and the last element contains the 
seconds. The values in the elements have the following 
range: 


Element From To 
Hours 00 23 
Minutes 00 59 
Seconds 00 59 


Unless the third operand {,1) is coded, both the date and 
time are returned in the A2 format (two numeric characters 
per element). 


If the third operand (,1) is coded, the time is returned as 

a four-byte unsigned binary number where each timer unit 
represents 3.33 milliseconds, or the low-order bit represents 
3.33 milliseconds. An example is: 


(0000002A), represents (42), 9 timer units or (42 x 3.33) 
milliseconds. 


##MAIN: The name given to a main program by the com- 
piier if the main program was not given a name by the 
programmer. 


alphabetic character: A character of the set A; By Gs: 
Z,$. 


alphameric character: A character of the set that includes 
the alphabetic characters and the numeric characters. 


argument: A parameter passed between a calling program 
and a subprogram or statement function. 


arithmetic expression: A combination of arithmetic 
Operators and arithmetic primaries. 


arithmetic operator: One of the symbols +, -, *,/, **, used 
to denote, respectively, addition, subtraction, multiplication 
division, and exponentiation. 


array: An ordered set of data iterns identified by a single 
name. 


array element: A data item in an array, identified by the 
array name foliowed by a subscript indicating its position 
in the array. 


array name: The name of an ordered set of data items. 


assigninent statement: An arithmetic variable or array 
element, toliowed by an equal sign (=), followed by an 
arithmetic expression. 


basic reai constant: A string of decimal digits containing 
a decimal point. 


batched compilation: Sequential compilation of more than 
one program. 


common area: A storage area that may be referred to by a 
calling program and one or more subprograms. 


compilation time: The time during which a source program 
is compiled, that is, translated from a high level language 
to a machine janguage program. 


Glossary 


compile: To prepare a machine language program froma 
computer program written in a higher level programming 
language. 


compiler option statements: A set of statements used to 
provide control information regarding a compilation by the 
FORTRAN IV compiler. 


constant: A fixed and unvarying quantity. The three class- 
es of constants specify numbers (numeric constants), literal 
data (literal constants), and hexadecimal data (hexadecimal 
constants). 


control program: A program that supervises the perform- 
ance of a computing system; an example is the System/3 
System Control Program. 


control statement: Any of the several forms of GO TO, 
IF and DO statements, or the PAUSE, CONTINUE, and 
STOP statements, used to alter the normally sequential 
execution of FORTRAN statements, or to terminate the 
execution of the FORTRAN program. 


core usage map: A linkage editor listing that shows the 
names and storage locations of routines that make up the 
load module. 


data item: A constant, variable, or array element. 


data type: The mathematical properties and internal 
representation of data and functions. The two types are 
integer and real. 


device option statements: A group of statements, in the 
set of compiler option statements, used to define input/ 
output devices. 


direct-access file: A file from which records may be re- 
trieved, or to which records may be written, in a nonse- 


quentia! manner. 


DO loop: Repetitive execution of the same statement or 
statements using a DO statement. 
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DO variable: A variable, specified in a DO statement, that 
is initialized or incremented before each execution of the 
statement or statements within a DO loop. !t controls the 
number of times the statements within the DO loop are 
executed. 


dummy argument: A variable in a FUNCTION or SUB- 
ROUTINE statement, or statement function definition, 
with which actual arguments from the calling program or 
function reference are associated. 


executaixe program: A program that can be used as a self- 
contained procedure. It consists of a main program and, 
optionally, one or more subprograms or non-FORTRAN- 
defined external procedures or both. 


executable statement: A statement that specifies action 
to be taken by the program; e.g., causes calculations to be 
performed, conditions to be tested, flow of control to be 
altered, 


extended range of a DO statement: Those statements that 
are executed between the transfer out of the innermost 
DO of a completely nested set of DO statements and the 
transfer back into the range of this innermost DO. 


external function: A function whose definition is not 
included in program unit that refers to it. 


external procedure: A procedure subprogram or a proce- 
dure defined by means other than FORTRAN statements. 


file: An ordered collection of one or more records. 


formatted record: A record that is transmitted with the 
use of aFORMAT statement. 


FUNCTION subprogram: An external function defined 
by FORTRAN statements, the first of which is a FUNC- 
TION statement. It returns a value to the calling program 
unit at the point of reference. 


global area: A data area at the load point of a main stor- 
age, which is not overlaid when different programs are 
loaded, thereby permitting communication between two 
or more programs. 


halt code: A number assigned to a programmed halt; a 


machine instruction that stops the execution of a program. 
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hexadecimal constant: The character Z followed by a 
hexadecimai number, formed from the set 0 through 9 and 
A through F. 


hierarchy of operations: Relative priority assigned to 
arithmetic or logical operations to be performed. 


1/0 Jist: A list of variables in an I/O statement, specifying 
the storage locations into which data is to be read or from: 
which data is to be written. 


implied DO: The use of an indexing specification similar 
to a DO statement {but without specifying the word DO 
and with a list of data elements, rather than a set of state- 
ments, as its range). 


integer constant: A string of decimal digits containing no 
decimal! point. 


internal statement number: A number assigned to a source 
statement by the compiler for identification. 


intrinsic function: A FORTRAN library function used by 
the compiler when certain operations are specified in a 
FORTRAN source statement. 


ISN: Internal statement number. 


job stream: The sequence of operation control statements 
and data submitted to tiie system on an input device. 


length specification: An indication, by the use of the 
form *s, of the number of bytes to be occupied by a 
variable or array element. 


link-editing: The combining, by tie linkage editor, of a 
number of object or load modules for execution as one 
program. 


linkage: Coding that connects two separately coded 
routines. 


linkage editor: A program that combines separately pro- 
duced object or load modules, resolves cross references 
between them, and generates overlay structures on request. 
The output of a linkage editor is called a load module, 
suitable for loading into main storage for execution. 


linkage editor control statements: A set of statements used 
to provide control information regarding the link-editing 
process. 


list-directed input/output: input or output records that 
are transmitted without the use of a FORMAT statement; 
an asterisk is placed in the READ or WRITE statement 


where the FORMAT statement number would Ordinarily be. 


literal constant: A string of alphameric and/or special 
characters enclosed in apostrophes. 


load module: An executable program that is the output of 
a linkage editor, 


load maduie execution time: The time during which a 
load module is executed, 


logical unit number: A constant or variable in an input/ 
output statement, that specifies the file that is to be read 
from or wriiten to. 


looping: Repetitive execution of the same statement or 
statements, usually controlled by a DO statement. 


main program: A program not containing a FUNCTION or 
SUBROUTINE statement and containing at least one 
executable statement. A main program is required for 
program execution. 


map, compiler: A compiler listing that shows the names 
and storage locations of variables and statement numbers 
in the object moduie. 


name: A string of from one through six alphameric 
characters, the first of which must be aiphabetic, used to 
identify a variable, an array, a function, or a subroutine. 


nestecl DO: A DO !oop whose range is entirely contained 
by the range of another DO loop. 


nonexecutable object program: An object module. 
nonexecutable statement: A statement that describes the 
use or extent of the program unit, the characteristics of 
the operands, editing information, statement functions, or 


data arrangement. 


numeric character: Any one of the set of characters 0, 1, 
2,...,9. 


numeric constant: An integer or real constant. 


object library: An area on disk that contains object 
modules and load modules. 


object module: A nonexecutable module that is the output 
of a language translator such as the System/3 FORTRAN 
IV Compiler. 


object program: A group of object modules that have been 
link edited together into an executable program; same as 
load module. 


OCL: Operation control language. 


predefined convention: The FORTRAN-defined type and 
length of a variable, based on the initial character of the 
variable name in the absence of any specification to the 
contrary. The characters !-N are INTEGER «4; the charac- 
ters A-H, O-Z and $ are REAL «4. 


procedure: A set of operation control statements ina 
source library that can be retrieved by specifying its name 
in an OCL CALL statement. 


procedure subprogram: A FUNCTION or SUBROUTINE 
subprogram. 


program unit: A main program or a subprogram. 


range of a DO statement: Those statements that physically 
follow a DO statement, up to and including the statement 
specified by the DO statement as being the last to be exe- 
cuted in the DO loop. 


real constant: A string of decimal digits that must have 
either a decimal point or an exponent, and can have both. 


relational expression: An arithmetic expression, followed 
by a relational operator, followed by an arithmetic expres- 
sion. The expression has the value true or false. 


relational operator: Any of the set of operators that express 
an arithmetic condition that can be either true or false. The 
operators are: .GT., .GE.,.LT., .LE., .£Q., .NE., and are 
defined as greater than, greater than or equal to, less 

than, less than or equal to, equal to, and not equal to, 
respectively. 


scale factor: A specification in a FORMAT statement 
whereby the location of the decimal point in a real number 
(and, if there is no exponent, the magnitude of the num- 
ber) can be changed. 
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sequential file: A file from which records are retrieved, or 
to which records are written, solely on the basis of their 
order. 


severity code: A code assigned to a compilation error. 


source library: An area on disk that contains procedures 
and source program statements. 


source module listing: A compiler-generated listing that 
shows ().2 source statements in a program unit and their 
corresponding internal statement numbers. 


source program: A computer program written in a source 
language, such as a program written in FORTRAN. 


specification statement: One of the set of statements that 
provide the compiler with information about the data used 
in the source program. In addition, the statement supplies 
information required to allocate storage for this data. 


statement: The basic unit of a FORTRAN program, com- 
posed of a line or lines containing some combination of 
names, operators, coristants, or words whose meaning is 
predefined to the FORTRAN compiler. Statements fall 
into two broad classes: executable and nonexecutable. 


statement function: A function defined by a function 


definition within the program unit in which it is referred to. 


statement function definition: A name, followed by a list 
of dummy arguments, followed by an equal sign (=), fol- 
lowed by an arithmetic expression. 


statement function reference: A reference in an arithmetic 
expression to a previously defined statement function. 


statement number: A number of from one through five 
decimal digits placed within columns 1 through 5 of the 
initial line of a statement. It is used to identify a statement 
uniquely, far the purpose of transferring control, defining 
a DO loop range, or referring to a FORMAT statement. 
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storage map: A compiler listing that shows the names and 
storage locations of variables and statement numbers in 
the object module. 


subprogram: A program unit headed by a FUNCTION or 
SUBROUTINE statement. 


SUBROUTINE subprogram: A subroutine consisting o7 
FORTRAN statements, the first of which isa SULMOUTINE 
statement. It optionaily returns one or more parameters to 
the calling program unit. 


subscript: A subscript quantity or set of subscript quanti- 
ties, enclosed in parentheses used in conjunction with an 
array name to identify a particular array element. 


subscript quantity: A component of a subscript: a positive 
integer constant, integer variable, or expression that evalu- 
ates to a positive integer constant. If there is more than one 
subscript quantity in a subscript, the quantities must be 
separated by commas. 


system input device: A device, such as a card reader or a 
printer/keyboard, used to read the job stream. 


type declaration: The explicit specification of the type 
and, optionally, length of a variable or function by use of 
an explicit specification statement. 


unformatted record: A record for which no FORMAT 
statement exists, and which is transmitted with a cne-to- 
one correspondence between internal storage locations 
(bytes) and external positions in the record. 


variable: A data item, identified by a symbolic name, that 
is not an array or array element. 


FORTRAN SAMPLE PROGRAM 


Figure 31 contains a sample System/3 FORTRAN program 
and the output listing resulting from its compilation, link 
editing, and execution. The sample program can be used to 
accomplish post-installation checkout of the compiler. 


After program product installation, if the system uses 5444, 
this program can be run by placing the distribution disk 
cartridge on R1 (for systems using 3340, place the program 
product distribution data module on D1). Then, generate 

a call to the procedure FRTSMP using the following OCL 
statements: 


// DATE 00/00/00 
// CALL FRTSMP,R1 
// RUN 


You must have 10 tracks available for SSOURCE and 10 
tracks available for $WORK on F1. The procedure assumes 
that F1 is named F1F1F1. 


This test program consists of three groups of statements: a 
FORTRAN source module of a subprogram named KBINCO 
(used to compute entries in an array), a FORTRAN source 
module of a main program named SAMPLE (used to print 
out the array), and a single data statement that is used as 
input to the load module resulting from the compilation of 
the two FORTRAN source modules. 


The sample program is written to be run in the minimum 
system configuration. 


Figure 31 shows the output as it appears on the printer. 
Each page heading will display the current version number, 
modification number, modification number, date, and 
page number. Compiler output consists of: 

1. The source module listing A 

2. The compiler storage map Ec} 


3. Informative messages IC | 
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Page of SC28-6874-3 


Issued 25 November 1977 


By TNL: SN21-5568 


/ 
xXx 
xx 
XX 
XX 
XX 
XX 
/ 


CALL 
CALI 
Laan 


RUN 
RUN 


FRTSMP.R] 
PARTO1.R1 
SFORTSFI 


COMPTEF SQURCE=K BINCO.UNIT-R1 
FILF NAMF-$WORK.UNTT—-Fi. PACK -FIFI1F1.TRACKS—1LO.RETAIN-S 
FILF NAMF~$SOURCE «UNIT T-F1 « PACK-FIFIF1.TRACKS—-10.RETAIN-S 


FORTRAN TV VERXX/MMD XX 


*PROCESS 


rn XV 


Dw 


9 


10 
11 
1? 
13 
14 


15 
16 
17 
18 
19 
20 


aq 

2? 
23 
24 
25 
26 
27 
28 
29 


NAMF A 
KRINCO T 


B | p R 


BOT R 
Tap R 


000 


RRC IO A RRO ROR RR tak a AO ak 2k kak ak ok io kik ka ake ak ake ak ake ak ake ae 


CCFEFFICIENT. 


CNX(N=L)RRRON-KE1L IDS OKECK— 1) *% #1), 


) 


50 
€0 
60 
70 


x 
x 
* 
* 
* 
A VALUF OF ZFRC IS RFTURNEC. * 
* 
* 
x 
x 


WHERE N AND K ARF THE INTEGFR ARGUMENTS TO 
ETNTFRMEDIATE CALCULATICNS ARE 
ARITEMFTIC. 


IN THE CASE 


FFT UNCHANGFD. 
THE FUNCTION HAS SFFN CHECKER FOR ALL COM— 


K=Le2ee-e-e10. 


FCRIII IRR a 2 RRR ROR I GI RR Ra ak ai ak ak i ai afc ak fe ak 


GOTO 76 


BO 


TO 


F. 
+ 


T 


Pp 


A 
I 
R 
I 


T 


CALCULATIONS 


HEX) DECL 

OooA 00010 
0016 00022 
0022 00034 


HEX2 DEC2 


MAP 
C 
c 
C * KBTNCCl COMPUTES THE RINOMIAL 
C * CINK) = 
¢ x 
CG * THF FUNCTION. 
C * PFRFORMFD IN RFAL 
G * WHERF K .GT. Ne 
iG * THE VALUES OF N AND K ARE 
C * 
C * RINATTONS OF N=1.27 2.2.20 AND 
C 
Cc 
FUNCT TON KRBINCOCN.K 
CHFCK FOR TRIVIAL CASFS 
TFE¢ K .GT.N) GCTC 
TF¢ K .FQ. 0} GOTO 
TFC kK .FO. N) GOTO 
TFE K .FG. 1) GCTC 
TF N-K .FQ.1) 
CONVERT TG RFAL FOR INT. 
Pos N 
Q = K 
CHFCK FOR LOWFR "DENOMINATOR? 
IF¢ P-O LT. OQ) 
CALCUL ATF DENOMINATOR 
MAX = Q 
BOT = 1.0 
no 30 T=? .MAX 
BOT = I * 
30 CONTINUE 
COMPUTE NUMFRATOR 
MAX = Pp 
MIN = Pp = 
TOP = 1.0 
00 40 T=MIN «MAX 
TOP = J * 
40 CON TINUF 
CAICULATE AND ROUND BIN. COFF 
KRINCO = TOP/ BOT 
RF TURN 
50 KBINCO = 0 
RETURN 
60 KBINCO = 1 
RETURN 
70 KBINCQ = N 
RETURN 
FNN 
T HFX) DECL HFX? DEC? NAMF 
0006 00006 N 
0012 00018 Q 
OO1F 00030 T 
007A 00042 
TOTAL FRRORS FOR THIS COMPILATION 


Figure 31 (Part 1 of 6). FORTRAN Sample Program 
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NAME 


MAX 
MIN 


= 


XX/XX/XX PAGE OOL 


91210000 
0122000C 
01230000 
01240000 
01242000 
01244000 
01246COC 
01248000 
01248400 
01248800 
01249200 
01249600 
01249700 
01250000 
01260000 
01300000 
01350000 
01400000 
01450000 
01500000 
0151000C 
01550000 
01600000 
01610000 
01650000 
01660000 
01700000 
01750000 
01800000 
01850000 
01900000 
0191000C 
01950000 
02000000 
0205000C 
02100000 
02110000 
02120000 
02130000 
0215000C 
02200000 
02250000 
023000C0 
02350000 
02400000 
0245000C 
02500000 
02550000 

HEX] DEC1 HEX2 DEC2 

OOOE 00014 

001A 00026 

0026 00038 


STATFMENT ALLOCATIONS 
30 =0141 40 =0185 50 =019N 60 =OLA9 70 =O185 
OL105 J THF CODF LENGTH OF KBINCR IS 449 DECIMAL. 
ob103 T TOTAL NUMBER GF LIBRARY SFCTCRS RECUIRED IS 5 


NAME-KBINCO. PACK-F IF 1F 1.UNI T=F 1,RETAIN-T.LI BRAR Y-R sCATEGORY-020 


xX CALL PARTO?.RI 

¥« LOAN S$FORT.FL 

+X COMPTLFE SOURCE-SAMPLF.UNIT=RI 

XX FI! F NAME-$WORK «UNIT T~F 1. PACK-FIFIF1.TRACKS-10.RETAIN-S 
XX FILE NAMF-~SSOURCE.UNIT-F1,PACK-FIFILF1.TRACKS-10.RETAIN-S 
XX RUN 


*PROCFSS MAP 
1 PROGRAM SAMPLF 


Page of SC28-6874-3 


tssued 25 November 1977 


By TNL: SN21-5568 


*00040400 
*00041200 
*00041 600 
*00041700 
*00041800 
*00041900 
*00056400 
*00066400 
*00070400 
*00071000 
*00081000 
*0008 3000 
*00085000 
*00085400 
*00090200 
*0C0S2200 
*00094200 
*00094600 
*0009500C 
*00095100 
*00108800 
*00118800 
*00120800 
*00121200 
*00121600 
*00122000 
*00122400 
*00122500 
*90127100 
*00129100 
*00131100 
*00131500 
*00131600 
*00136200 
*0013 8200 
*00140200 
*00140600 
*00140700 
*00152500 


C BOI IOI ICO GIO to oi roi i mai IG i toa tek dati dato tk 00040000 
C * 
©  * THIS PROGRAM IS A TEST CASF DESIGNED TO VERIFY THAT THE S/3 
C  * FORTRAN TV COMPILFR ANC LIBRARY HAVE BEEN PROPERLY INSTALLED IN 
©  * YOUR SYSTEM. THE RFOUTRED CCL STATEMENTS ARF INCLUDED WITHIN 
© * THE CALLED PROCFEDURFS. 
C * 
C  —* THF PROGRAM GENFRATFS A TABLE NF BINCMIAL CCEFFICIENTS WHICH IS 
©  * THEN PRINTED ON THE PRINTER. ALL DATA IS PROGRAM GENERATED. 
C * 
Cx 
© * THE OUTPUT SHOULD RF --- 
C * 
C x ]---------~---~--+--~~~+---~~ -----~---+-+-- +--+ +--+ = ------- I 
C * 1 K 1 
ee a ----+---- I 
Cc*} IT NT) ? 3 4 5 6 7 8 9 10 1 
© * [~---]-----+---~-------------+-- - +--+ ee ee I 
C*eT Lt 0 0 0 0 c a 0 0 o 1 
Cer 2 2 1 i) 0 0 0 0 0 0 Oo! 
c*rT 321 3 3 1 0 0 0 0 0 0 0! 
C#T 41 & 6 4 1 ) 0 0 0 0 01 
c* tT 51 6 10 10 5 1 0 0 0 0 ol 
C*eT 6T 6 15 20 15 é 1 0 0 0 oI 
Cx tT TT TFT Pt 35 36 a1 7 1 0 0 oI 
Cer &T 8 ?8 56 70 56 28 8 1 9 oT 
c* T 9 9 36 84 126 1276 a4 36 9 1 oT 
C* 110 TIO 45 120 2710 2752 210 120 45 10 11 
C* T1211) 55 165 330 462 462 330 165 55 lit 
C* 1127 12 66 220 495 7927 S24 792 455 220 66 I 
© * £137 13 78 2786 715 1287 1716 1716 1287 715 286 1 
C* T1417 14 91 364 1001 27002 3003 3432 3003 2002 1001 1 
C* 115 115 105 455 1365 3003 5005 6435 6435 5005 3003 1 
© * 1161 16 120 560 1870 4368 8008 11440 12870 11440 8008 I 
© * 117 1 17 136 680 2380 6188 12376 19448 24310 24310 19448 I 
C * T 18 FT 18 153 816 3060 8568 18564 31824 43758 48620 43758 1 
C * T 19 T 19 171 969 3876 11624 77132 50388 75582 92378 92378 I 
C * T 20 T 20 190 1140 4845 15504 38760 77520 125570 167960 184756 I 
€ * [+---]------~---~+-----+- ---+- +--+ ~~ -- + ee onn--- I 
C x 
C FGI lok ior iota Ri oki iii tok gi io ioikai ig ito gofok i alakkaak oka dere tot toe ak tok 001 62500 


Figure 31 (Part 2 of 6). FORTRAN Sample Program 
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2 DIMENSION NBYK(20.10) 00164600 

a INTEGER OUT 00176400 

4& DATA OUT /3/ é 

5 bo 10 K=1.10 : 00200000 

6 NBYKOL.K) = K 00250000 

7 10 CONTTNUF 00300006C 

8 WRITF(QOUT.2) 00400006 

9 WRITFE(QUT.3) (NBYK(1.K)-K=1,10) 00450000 

0 on 30 N=1.20 00500000 

| bn 20 K=1,10 00550000 

1? NBYKON.K}) = KPINCO(N.K) OC6CO0O0C 

13 20 CONTINUE 00650000 

14 WRITF(QUT 64) Ne (NBYKONGK) SK=1461C) 00700000 

15 30 CONTINUE oc75000C 
FORTRAN IV VEROS/MODOO 09/11/76 PAGE 002 

16 WRITE(OUT.5) 00800000 

17 stae 00850000 

18 ? FORMAT('1 S/3 FORTRAN TV SAMPLE TEST CASE®///////1X- * TEST INPUT. 00900006 

JFOR S/3 SAMPLE PROGRAM'/////) 009 1000€E 

19 3 FORMATOT7o® 18 STOMP TT IS Te tHE oT 35 Khe TOS eg MET S/T 2." ----I "5 00950000 

* STCPH-f) CATES T2 tT N T8 el? el 40215 631603076 T's/T?. 01000000 

* Jen T 8,5 7C M8) Sts) 01050000 

20 4 FORMAT (® T'.l3e" [89 13e 1462715, 316. 307? 9) 01100000 

a\ 5 FORMAT(® T~---T"*.57(t-t) 49") 01150000 

2? FND 01200000 

NAMF AT HFXt NFCL HEX2 DFC? NAME AT HEX] DFECL HEX? DEC? NAME AT HEX] DECI HEX2 DEC2 
By OUT T 0185 0038S NBYK i 0189 00393 04A8 01192 K IT O04A9 01193 
N T O4A0 01197 


000 TOTAL FRRORS FOR THIS COMPILATION 


STATFMENT ALLOCATIONS 
5 =056l 4 =O57A 3 =O5RR 2 =0666 10 =06B0 20 =072C 30 =0764 


Figure 31 (Part 3 of 6). FORTRAN Sample Program 
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START 
ADDRESS 


18N0 
1F 79 
1800 
1900 
1F aI 
2OFF 
2OR3 
20? 
VFA? 
PL1G 
21275 
2137 
2168 
21489 
2199 
2240 
273¢ 
2221 
22 0F 
21FR 
??48 
224F 
2260 
2256 
2260 
226N 
7296 
PIAL 
2298 
2?K? 
P2RI 
DOR? 
2>R9 
PORE 
2206 
22CD 
2203 
220A 
22FF 
22F1 
22F8 
27€6 
2346 
237A 
2324 
2307 
2410 
2420 
2434 
246A 
2440 
7430 
243k 


OVERLAY LINKAGE EDITOR CORFE USAGE MAP 


CATEGORY 


128 


0 


NAMF AND 
FANT RY 


SAMPLE 
#UNITTB 
#ER RUF 
#T0B8UF 

$FOFO 
AMNTRY 
#SNTRY 
#RNTRY 
#N 

S$FCFS 
#RETRN 

$FORI 
#DENS 
#OED70 

$FO LO 

HEE ST 

HEL ST? 
H#OERR 

#TODNT 
#TOCOM 
#ENDEQ 
#ERRFQ 
#OUTBE 
#INTBL 
#1I0d0a 
HFLRP? 

SFOVG 
#HADROT 
#RLIST 

SFOVH 
#OL EST 

SFCER 
#XLT 
aXxST 
#XA 
#XMLT 
#XMST 

$FOF6 
#BST 
#BA 
#BS 

$FOFD 
#DOEND 
#O0BR 
#DBGN 3 

$FOF? 

SFOEA 
#RL 
#RST 
HRAO 
HRA 
#RSO 
HRS 


CODE LENGTH 
HEXADFCIMAL CECIMAL 


0781 


0193 


OOFD 


000C 


0010 


0028 


oo1c 


OCEL 


0046 
0154 
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1921 


403 


35 


98 


253 


12 


16 


40 


28 


70 
340 
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START CATEGORY NAME AND COCHE tENGTH 


ADOR ESS ENTRY HE XADECTMAL DECTMAL 
2550 arta 

2571 4 SFOEF O08 a 134 
25E4 4 Sturt O084 13? 
2a78 4 SFOFH 0098 16> 
2710 4 $F OVE 0061 oT 
27ie AFLOAT 

2771 4 Sh OVA 0060 105 
2 70t 4 Sh OFC 8020 32 
2TEG #ROFLW 

2 TFS FRUF UW 

2 TF 5 $F O82 0134 308 
?ani #ERET 

2909 HE OR? A 

2881 #FOB2B 

PQ13 AFOR?C 

PQA? 4 Shas OOAL 73 
290 5 $hOBS OC4E 78 
DA?PD 5 $F OB9 OO1B8 24 
PAA 4 SE OBA a0n1o 24 
PRA? 5 SF OCA OC?KR 43 
2ARD 6 SFOTC OO? 194 
2R?A HER ISE 

PRE 6 ShOTR O06A 106 
PARRY 6 SHU PRT OOrB 251 
PCRS 6 Shor OOF 4 274 
PUBA HEQTAA 

20 68 HE OTS 

PNA 6 SFOVP 0016 25 
2nAl 6 $F ORB 0061 109 
PFVE & sFnn7 O12C 300 
PF4A 20 KAINCO O1cd 449 


ariwod £ THE TOTAL CORFE USED BY SAMPLE TS 64th DECIMAL . 

am 201 t THF START CONTROL ANORESS OF THIS MODULE TS 1800. 

bids ft TOTAL NUMBER OF LEBRARY SFCTORS REOUTRED TS eT 
NAMF-SAMPLE.PACK-FIFIFILSUNTT-FILSRETAIN-T.tTIRRARY-C 
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XX CALL PARTO3.RI 
XX TOAD SAMPLE.FL 
XX RUN 


S/3 FORTRAN IV SAMPLF TEST CASE 


TFST INPUT. FOR S/3 SAMPLE PROGRAM 


i? 2?) 66 220 495 
13 13 78 286 715 

14 91 364 1001 
15 35 105 455 1365 
16 16 120 560 1820 
17 17.136 680 2380 
1R 18 153 816 3060 


kK 

5 6 

0 0 

oO 0 

oO oO 

0 0 

1 oO 

6 1 
21 7 
56 28 
126 84 
252 210 
462 462 
792 924 
1287 1716 
2002 3003 
3003 5005 
4368 8008 
6188 12376 
8568 18564 


19 17% 969 3876 11628 27132 
29 190 1140 4845 15504 38760 


36 
120 
330 
792 

1716 
3432 
6435 
11440 
19448 
31824 
50388 


Oe COD0C000 


45 
165 
495 
1287 
3003 
6435 
12870 
24310 
43758 
75582 


9 10 
Oo 0 
0 QO 

oO 0 

0 0 

oO 0 

0 0 

oO 0 
0 QO 
1 0 

10 1 
55 il 
220 66 
715 286 
2002 1001 
5005 3003 


11440 8008 
24310 19448 
48620 43758 
92378 92378 


77520 125970 167960 184756 


Figure 31 (Part 6 of 6). FORTRAN Sample Program 
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Compiler-generated messages indicate conditions encount- 02 
ered during program compilation. Usually they describe 

invalid uses of FORTRAN syntax, but can also relate to 

violations of System/3 requirements. 


Errcr messages are listed here in order by message number 
and are described using the forrnat: 


qi Message number and text. 
2. Explanation, which surpmaiizes the condition(s) 
causing the message to be generated. 03 


aS 


Severity code, which indicates the action taken by 
the compiier. Two severity codes are possible: 


® Severity 4 warning message. Compilation con- 
tinues; the iink-editing step and load module 
execution step are sull perraitted. 


® Severity 8--serious error, Compilation continues, 
but processing terminates at the end of compila- 04 
tion (the LINK, OBJECT, DECK, and GODECK 
options are ignored). The phrase output text not 
generated is used as a reminder that processing 
is terminated at the end of compilation. 


If the compiler makes an assumption or takes a 

special action because of one of the error messages, 

that assumption or action is described in the severity 

code section. 05 


4. Programmer response, sugyesting appropriate action 
which you should take. Corrective action should 
solve the problem; however, tf the problem recurs, 
have the source program and associated source listing 
available before calling 1BM for programming support. 


Gi =NON-NUMERIC STMT NUMBER. 


Explanation: The statement number contains a 
character that is not a decimal digit. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the statement 
number using only decimal digits. 


Appendix B. Compilation Messages 


CONTINUATION ERROR. 


Explanation: More than 19 continuation cards are 
specified, or a continuation card is out of sequence. 


Severity: 8; output text not generated. 

Programmer Response: Check for proper delimiters; 
respecify the statement so that it does not extend 
over more than 19 continuation cards. 

SYNTAX ERROR 

Explanation: A statement is found that does not 
conform to the rules for writing FORTRAN state- 
ments. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 


INVALID STATEMENT. 


Explanation: The statement is undeterminable, mis- 
spelled, or incorrectly formed. 


Severity: 8; output text not generated. 
Programmer Response: Correct the statement. 
SEQUENCE ERROR. 


Explanation: The statement is not in the proper 
order of statements for a FORTRAN program. 


Severity: 8; output text not generated. 


Programmer Response: Place the statement into 
proper sequence. For example, if the FUNCTION, 
SUBROUTINE, or PROGRAM statement appears, 
it must be the first statement in a program; the 
IMPLICIT statement must precede all other state- 
ments; specification statements must precede execu- 
table statements. 
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MISSING STMT NUMBER. 11 
Explanation: A statement following a STOP, RE- 


TURN, GOTO, or arithmetic IF statement does not 
have a statement number. 


Severity: 8; output text not generated. 


Programmer Response: Supply a statement number 
where required. 


INVALID NAME. 12 


Explanation: A statement contains a variable or 
subprogram name longer than six characters or one 
that does not begin with an alphabetic character; or 
ina FUNCTION or SUBROUTINE statement, the 
name is missing. 


Severity: 8; output text not generated. 


Programmer Response: Supply or respecify the name, 13 
making sure it begins with an alphabetic character and 
is no more than six characters long. 


SUBSCRIPT ERROR. 


Explanation: A subscript is missing or incorrectly 
specified within dimensioned information. 


Severity: 8; output text not generated. 
Programmer Response: Correct the subscript. 14 


DUPLICATE STMT NUMBER. 


Explanation: The statement number is previously 
defined. 


Severity: 8; output text not generated. 


Programmer Response: Assign a different statement 
number. 


DUPLICATE COMMON/GLOBAL. 15 
Explanation: A variable ina COMMON or GLOBAL 
statement is previously defined in a COMMON or 

GLOBAL statement, or an attempt is made to initial- 

ize a COMMON or GLOBAL item. 


Severity: 8; output text not generated. 


Programmer Response: Assign a different variable 
name. 


SUBPROGRAM IN COMMON. 


Explanation: A subprogram name or dummy param 
eter appears in a COMMON or GLOBAL statement. 


Severity: 8; output text not generated. 
Programmer Response: Remove the subprogram 
from COMMON; respecify COMMON or GLOBAL 
statements without dummy arguments. 


DUPLICATE SUBPROGRAM VAR. 


Explanation: A variable name appears more than 
once ina SUBROUTINE or FUNCTION statement. 


Severity: 8; output text not generated. 


Prograinmer Response: Assign a different variable 
name. 


INVALID FORMAT SYNTAX. 

Explanation: The FORMAT statement contains a 
slash followed by a comma, or a comma followed by 
a slash. 


Severity: 4; warning. 


Programmer Response: Correct the statement if the 
program is to be compiled again. 


SUBPROGRAM NAME ERROR. 


Explanation: An attempt was made to dimension a 
subprogram name or type a SUBROUTINE name. 


Severity: 8; output text not generated. 

Programmer Response: Remove dimension informa- 
tion from subprogram names. !f a name is to be 
typed, make the subprogram a function rather than 
a subroutine. 


INVALID SPECIFICATION. 


Explanation: A name is dimensioned more than 
once or explicitly typed more than once. 


Severity: 8; output text not generated. 
Programmer Response: Make sure type and dimen- 


sion information is specified only once for a name; 
assign different names to different variables and arrays. 


16 


17 


18 
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INVALID EXTERNAL NAME, 20 


Explanation: A name specified in an EXTERNAL 
statement is a subprogram name, a dummy parameter, 
a COMMON or GLOBAL variable, a PROGRAM 
name, or is dimensioned. 


Severity: 8; output text not generated. 


Programmer Response: Correct any duplicate names; 
assign undimensioned names. 


21 
INVALID REAL CONSTANT. 


Explanation: An invalid or incorrectly specified 
real constant is detected. 


Severity: 8; output text not generated. 


Programmer Response: Respecify as a valid real 

constant; that is, a number of decimal digits written 

with a decimal point optionally followed by a D or 

E and one or two digits for an exponent. 22 


INVALID INTEGER CONSTANT. 


Explanation: An invalid or incorrectly specified 
integer constant is detected. 


Severity: 8; output text not generated. 


Programmer Response: Respecify as a valid integer 

constant; that is, a number of decimal digits written 

without a decimal point that does not exceed the 

value 2147483647. 23 


DUMMY ARGUMENT ERROR. 


Explanation: More than 15 dummy arguments, or 
duplicate dummy arguments, appear in a statement 
function argument list, or more than 25 dummy argu- 
ments appear in a FUNCTION or SUBROUTINE 
statement. 


Severity: 8; output text not generated. 
Programmer Response: Correct any duplicate names; 


make sure the number of dummy arguments does not 
exceed 15 or 25. 
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SUBSCRIPTED VAR IN ASF 


Explanation: A subscripted variable is specified in a 
statement function. 


Severity: 8; output text not generated. 
Programmer Response: Remove the subscript; if 
necessary, restructure the program to execute the 
proper variable. 

SUBSCRIPT EXPRESSION ERR. 

Explanation: An incorrectly formed subscript ex- 
pression or undefined variable appears in a subscript 
expression. 


Severity: 8; output text not generated. 


Programmer Response: Correct the subscript expres- 
sion; define all variables. 


SUBSCRIPT DIMENSION ERR. 

Explanation: The number of subscripts in a subscript 
expression, or the evaluated result of the subscript(s) 
does not agree with the dimension information, or 
the evaluated result of the subscript exceeds 32767. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the expression or 
the dimensioned definition so that they are consistent. 


ARITHMETIC STMT ERROR. 

Explanation: An invalid arithmetic statement or 
variable is specified; or ina FUNCTION subprogram, 
the left side of an arithmetic statement is a dummy 
argument or is in COMMON. 


Severity: 8; output text not generated. 


Programmer Response: Correct the arithmetic 
statement. 
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INVALID IF EXPRESSION, 29 


Explanation: An invalid or incorrectly formed IF 
expression is specified. 


Severity: 8; output text not generated. 
Programmer Response: Correct the IF expression. 
INVALID SIMPLE ARGUMENT, 


Explanation: An invalid simple argument appears 
ina CALL statement. 30 


Severity: 8; output text not generated. 
Programmer Response: Correct the CALL statement. 
INVALID CALL EXPRESSION. 


Explanation: An invalid expression appears in a 
CALL statement. 


Severity: 8; output text not generated. 
Programmer Response: Correct the CALL statement. 31 
INVALID ASF LEFT SIDE. 


Explanation: An invalid expression appears to the 
left of an equal sign in a statement function. 


Severity: 8; output text not generated. 
Programmer Response: Correct the statement function. 
INVALID ASF RIGHT SIDE. 32 


Explanation: An invalid expression appears to the 
right of an equal sign in a statement function. 


Severity: 8; output text not generated. 


Programmer Response: Correct the statement 
function. 


INVALID STMT NUMBER, 


Explanation: \n an arithmetic [F, GOTO, or AT, or 

on the END= or ERR= parameter of an t/O statement, 
a statement number is missing, invalid, incorrectly 
placed, or is the number of a non-executable statement. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the statement with 
a valid statement number. 


FORMAT STMT NUMBER ERROR. 

Explanation: A FORMAT statement number is miss- 
ing or is incorrectly specified ii a READ or WRITE 
statement, or a READ/WRITE statement containing 
an 1/O list references a FORMAT statement not hav- 
inga D,E, F, |, or A format specification. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the statement with 
a valid statement number. 


INPUT/OUTPUT LIST ERROR. 

Explanation: A syntax error or an invalid list element 
appears in an input/output list; or ina FUNCTION 
subprogram, the input list element is a dummy argu- 
ment or is in COMMON. 

Severity: 8; output text not generated. 

Programmer Response: Correct the input/output list. 


COMPUTED GO INDEX ERROR. 


Explanation: The index of a computed GO is missing, 
invalid, or not preceded by a comma. 


Severity: 8; output text not generated. 


Programmer Response: Correct the computed GO. 


33 
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DO LOOP ERROR. 37 


Explanation: The BO statement is incorrectly nested; 
or the terminal statemeni of the associated DO state- 

ment isa GOTO arithmetic IF, RETURN, FORMAT, 

STOP, PAUSE, or another DO. 


Severity: 8; output text not generated. 


Programmer Response’ Supply a CONTINUE state- 
ment if possible; otherwise, restructure the DO loop. 

38 
TOO MANY NESTED DOS. 


Expianation: There are more than 25 nested DO 
statements. 


Severity. 8; output text not generated. 

Programmer Response: Restructure the program 

wherever possible to coutain fewer DO statements in 39 
a loop. 


INVALID DO VALUE. 


Exolanation: The initial, test, or increment value in 
a DO statement or implied DO ina READ or WRITE 
1/O list is of the invalid type or the initial value is 
negative or zero. 


Severity: 8; output text not generated. 

Programmer Response: Respecify the DO statement 

initial value as an unsigned integer constant or 41 
variable greater than zero. 

INVALID DO INDEX. 

Explanation: The index of a DO or an implied DO is 

of invalid type, or, ina FUNCTION subprogram, the 

index of a DO is a dummy argument or is in COMMON 

or GLOBAL. 


Severity: 8; output text not generated. 


Programmer Response: Correct the DO statement. 


INVALID LAST STATEMENT. 


Explanation: The last executable statement before 
the END statement is not a STOP, GOTO, arithmetic 
IF, or RETURN statement. 


Severity: 4; warning. 


Programmer Response: Supply a STOP or other valid 
statement before the END statement. 


NO END STATEMENT. 
Explanation: The END statement is missing. 
Severity: 4; warning. 


Programmer Response: Supply an END statement if 
the program is to be compiled again. 


STATEMENT TOO LONG. 


Explanation: A statement is too long to be scanned 
because of compiler expansion of subscript expres- 
sions or addition of generated temporary storage 
locations. 


Severity: 8; output text not generated. 


Programmer Response: Restructure the statement 
into smaller logical units and specify as separate 
statements. 


COMMON/GLOBAL EXTENSION. 


Explanation: A variable is made equivalent to an 
element of an array in such a manner as to cause the 
array to extend beyond the origin of the COMMON 
or GLOBAL area. 


Severity: 8; output text not generated. The compiler 
will restructure the EQUIVALENCE nest so that 
COMMON or GLOBAL is not extended. Note that 
this restructuring may cause apparent errors in other 
nests, generating error 42. 


Programmer Response: Restructure equivalence 


wherever possible; include dummy arrays if necessary 
to make the COMMON area larger. 
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EQUIVALENCE ERROR. 46 


Explanation: Two variables or array elements in 
COMMON or GLOBAL are equated, or the relative 
locations of two variables or array elements are 
assigned more than once. 


Severity: 8; output text not generated. 


Programmer Response: Restructure COMMON or 
G!OBAL variables and arrays, or correct EQUIVA- 
LENCE statements to eliminate double definition. 
47 
INVALID EQUIVALENCE NAME. 


Explanation: A name that may not appear in an 
EQUIVALENCE list was detected in the list. 


Severity: 8; output text not generated. 


Programmer Response: Make sure that only data 
variable names are used in EQUIVALENCE lists. 


RETURN ERROR. 

48 
Explanation: A RETURN statement is present ina 
main program. 


Severity: &; output text not generated. 


Programmer Response: Remove the RETURN state- 
ment and supply a STOP statement. 


MISSING DEFINE FILE. 
49 
Explanation: A DEFINE FILE statement is missing 
ina main program that contains a direct access 
READ, WRITE, or FIND statement. 


Severity: 8; output text not generated. 


Programmer Response: Supply a DEFINE FILE 
statement. 


INVALID DEFINE FILE. 

Explanation: A DEFINE FILE statement is present 
in a subprogram or is specified more than once for a 
file. 

Severity: 8; output text not generated. 
Programmer Response: Remove any extra,.cous 
DEFINE FILE statement; make sure duplicate 
DEFINE FILE statements are not specified. 

TOO MANY ASFS. 

Explanation: The number of arithmetic statement 
functions has exceeded the compiler’s maximum of 
20. 

Severity: 8; output text not generated. 
Programmer Response: Reduce the number of 
arithmetic statement functions, or subdivide the 
program into FUNCTION subprograms. 


MISMATCH IN DATA. 


Explanation: Names and constants in a DATA state- 
ment are not in a one-to-one correspondence. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the DATA state- 
ment, deleting extraneous names or constants. 


MIXED MODE IN DATA. 


Explanation: A constant and variable ina DATA 
statement do not have the same type. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the DATA state- 
ment so that typing is consistent. 


51 


INVALID HE CONSTANT. 55 
Poplanation: An invalid literal constant is specified 
ra DATA statement. 
Severity. 8) cotput text aot generated. 
Programmer Respouse. Respecity the DATA state: 
meat: clieek for valid deboneters. 
INVALIO HEX CONSTANT, 56 
Exolonation  Aninvddid bexadecimal constant is 
specniied in a DATA statounent. 
Serety. B® output toxt aot generated, 
Programaer Hesponse. Respecity the DATA state- 
ment using only the characters O through 9 A through 
Fo and blak, for fexadecitnal characters. 
57 
SUBPHOGRAM VAR IN DATA, 
Explanation. A subproqram name or dummy variable 
is specified ta OATA statement. 
severity: 8) output text not generated. 
Programmer Respoiuse. Respecity the DATA state- 
ment, rernoving subprogram names or dummy variables. 
COMMON NAME IN DATA. 
58 
Explanation’ A COMMON or GLOBAL variable is 
ioaded with a DATA specification. 
Severity: 8; output text not generated. 
rogrammer Response: Respecify the DATA state- 
rent, deleting COMMON or GLOBAL variables. 
OPTIONS ERROR. 
Explanation. There was an options error in one or 59 


more compiler option statements. (Compiler option 
statements inciude device option statements, the 
CORE statement, the CATEGORY statement, and 
the «PROCESS statement.) Each statement in error 
is followed by the message **CONFLICTING OP- 
TICNS OR INVALID SYNTAX=#*. 


Severity: 8; output text not generated. 


Programmer Response: Correct the statement(s). 


MISSING FORMAT DELIMITER. 

Explanation: A literal, X, or H type group ina FOR 
MAT statement is not followed by a comma, stash, or 
right parenthesis. 

Severity: 4; warning. 

Programmer Response: Correct the statement, 
RELATIONAL IF ERROR. 

Explanation: A relational IF staternent contains a 
DO statement, another relational IF statement, or a 
non executable statement. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 
INVALID DEBUG VARIABLE. 

Explanation: A variable name is misspelled, not 
defined, an EXTERNAL name, the name of a sub- 
program (not this function), a dummy argument, or 
an attempt is made to SUBCHK a scalar. 


Severity: 4; warning. 


Programmer Response: Correct the DEBUG state- 
ment. 


INVALID DEBUG OPTION. 

Explanation: A DEBUG option is specified incorrect: 
ly; or the NOTRACE option is specified with AT 
and/or TRACE statements in the DEBUG packet. 


Severity: 8; output text not generated. 


Programmer Response: Correct the DEBUG packet 
as necessary. 


INVALID RECORD NUMBER. 

Explanation: The record number expression in a 
READ, WRITE, or FIND statement does not evaluate 
to an integer value. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the expression so 
that it is an integer value greater than zero. 
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PROGRAM NAME MISSING. 63 


Explanation: No name is specified in the PROGRAM 
statement. 


Severity: 8; output text not generated. 
Programmer Response: Supply a program name. 
INVALID DEBUG PACKET. 


Explanation: The DEBUG packet contains statements 64 
other than AT and TRACE. 


Severity: 8; output text not generated. 


Programmer Response: Remove all but AT and 
TRACE statements from the packet. 


NOT ENOUGH CORE. 


65 
Explanation: Total constant, variable, buffer, and 
1OB allocations exceed the indicated number of 
bytes: 
Models 6, 10, and 12 62,720 bytes 
Model 15 with Program 49,152 bytes 
Number 5704-FO1 
Model 15 with Program 57,344 bytes 66 
Number 5704-FO2 
For program 5704-FO2 only: The total external 
storage requirements (external buffers) exceeds 64K. 
Severity: 8; output text not generated. 
Programmer Response: 
(one of the following): 
67 


@ Segment the program into smaller subprograms 
that can be overlaid in an overlay environment. 


@ Separate the program into a number of smaller 
programs performing independent functions. 


@ Use either the SHRBUFF or EXTBUF (Model 15 
with Program Number 5704-FQ2 only) options 
for DAD files. 


DATA NAME DOUBLY DEFINED. 


Explanation: A variable ina DATA statement is 
previously defined. 


Severity: 4; warning. The last definition is used. 
Programmer Response: Respecify variables using 
different names; or remove previously defines 
variables from the DATA statement. 

MISSING RIGHT PAREN. 

Explanation: A required right parenthesis is missing. 


Severity: 8; output text not generated. 


Programmer Response: Supply required right paren- 
thesis; or remove the extraneous left parenthesis. 


COMPUTED GO TO ERROR. 


Explanation: More than 60 statement labels are 
specified in the COMPUTED GO TO statement. 


Severity: 8; output text not generated. 


Programmer Response: Reduce the COMPUTED 
GO TO statement into two or more statements. 


MISSING STMT NUMBER. 


Explanation: The FORMAT statement does not 
have a statement number. 


Severity: 8; output text not generated. 


Programmer Response: Respecify the statement with 
a statement number. 


MISSING LEFT PAREN. 


Explanation: The FORMAT statement does not 
begin with a left parenthesis. 


Severity: 8; output text not generated. 


Programmer Response: Correct the statement. 


68 


INVALID SCALE FACTOR. 72 


Explanation: The FORMAT statement specifies a 

scale factor on a data type other than D, E, or F, or 
no number or an invalid number precedes the scale 
factor, or the scale factor is greater than 127 or less 
than -127. 


Severity: 8: output text not generated. 


Programiner Response: Correct the statement. 


73 
FIELD TOO LARGE. 
Expianation: The FORMAT statement contains a 
literal longer than 255 characters or a numeric 
specification greater than 255, 
Severity: 8; output text not generated. 
Programmer Response: Restructure the statement: 
soginent large mumeric specifications wherever 
possible. 74 
UNBALANCED PARENTHESES. 
Explanation. The cQRMAT statement has a nesting 
level greater than 2, or aii enclosed literal, or more 
code after the last right parenthesis, or too large an 
H specification, or the number of right parentheses 
is less than the number of left parentheses. 
Severity: 8; output text not generated. 75 
Programmer Response: Correct the statement. 
INVALID FIELD WIDTH 
Explanation: The FORMAT statement contains a 
field width of zero, or in a D, E, or F specification, 
W is specified less than D, or a literal of length 0 is 
specified. 76 


Severity: 8; output text not generated. 


Prograinmer Response: Correct the statement. 


MEANINGLESS NUMBER. 

Explanation: The FORMAT statement contains a 
meaningless number (for example, a field or group 
count of zero), or a field count precedes a literal or 

T format specification. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 
INVALID DELIMITER. 

Explanation: The FORMAT statement has a delimiter 
other than a comma or slash, or there are two consecu- 
tive data items without an intervening delimiter, or two 
consecutive delimiters. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 


MORE THAN i GENERIC STMT. 


Explanation: The program contains more than one 
GENERIC statement. 


Severity: 4; warning. 


Programmer Response: Remove extraneous 
GENERIC statements. 


INVALID CHARACTER. 


Explanation: The FORMAT statement contains a 
character that is not a valid format character. 


Severity: 8; output text not generated. 
Programmer Response: Correct the statement. 
INVALID $ NAME. 


Explanation: A name beginning with $ is specified 
for a FUNCTION or SUBROUTINE subprogram. 


Severity: 8; output text not generated. 


Programmer Response: Rename the subprogram. 
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MISSING DEVICE OPTIONS. 82 
Explanation: A sequential or direct access 1/O 

statement appears without a matching device options 
statement specified, or a DEFINE FILE statement 

appears with no corresponding direct access device 

options statement. 

Severity: 8; output text not generated. 

Frogrammer Response: Specify the proper device 

options statements. 
STATEMENTS FOLLOWING END. 

Explanation: The END statement is not immediately 83 
followed by a /*. 
Severity: 4; warning. 
Programmer Response: Remove extraneous state- 

ments. Place the END statement after all statements 

in program execution, 

DUPLICATE UNIT NUMBER. 

Explanation: A \ogical unit number is used more 84 


than once. 
Severity: 8; output text not generated. 


Programmer Response: Redefine files so that each 
logical unit number defines one file only. 


INVALID UNIT NUMBER. 

Explanation: The logical unit number in a READ, 
WRITE, BACKSPACE, REWIND, END FILE, or 
FIND statement is of the wrong type or is zero. 


Severity: 8; output text not generated. 


Programmer Response: Make sure the logical unit 
number is vatid. 


TOO MANY NESTED CALLS. 


Explanation: The program contains a statement 
which has more than 20 levels of nesting for functions. 


Severity: 8, output text not generated. 


Programmer Response: Correct the statement. 


INCORRECT NUMBER OF ARGS. 


Explanation: An incorrect number of arguments was 
specified for a function in a program containing a 
GENERIC statement, or more than 25 arguments are 
present ina CALL statement or function reference. 


Severity: 8; output text not generated. 

Programmer Response: Respecify the number of 
arguments to agree with the number required by the 
function, (for example, specify only one argument 

for SIN); or reduce the length of the argument list to 
25. 

PROGRAM SELF REFERENCE. 

Explanation: The program name in the main program 
or subprogram is used as a subroutine name in a CALL 
statement or in a function reference. 


Severity: 8; output text not generated. 


Programmer Response: Respecify either the program 
name or parameter name to make each unique. 


INVALID ARGUMENT TYPE. 


Explanation: A subprogram contains: 


1. An argument of the wrong type. 

2: More than one argument not all of the same 
type. 

3. An argument which was an array name. 

4. An argument which was a name that appeared 


inan EXTERNAL statement. 
Severity: 8; output text not generated. 


Programmer Response: Correct the argument type. 
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INVALID SUBPGM REFERENCE. 88 


Explanation: The subroutine name in a CALL state- 
ment or a function reference is ina COMMON, 
GLOBAL, or DATA statement or is dimensioned, or 
the subroutine name in a CALL statement is explicitly 
typed or is missing. 


Severity: 8; output text not generated. 
Programmer Response: Correct the subprogram. 
NAME USED AS SUBPR, FUNCT. 


Explanation: A variable name is used as both a sub- 
routine and function name. 


Severity: 8; output text not generated. 


Programmer Response: Assign different names to 
functions and subroutines. 89 


INCONSISTENT NO. OF ARGS. 


Explanation: The number of arguments specified for 
a function in a program containing no GENERIC 
statement was inconsistent with FORTRAN rules. 


Severity: 4; warning. 


Programmer Response: \f the function is meant to 90 
be user-supplied, assign a function name that does 

not duplicate a FORTRAN-supplied function name. 

If the function is meant to be FORTRAN-supplied, 

specify the correct number of arguments. 


INCORRECT ARGUMENT. 


Explanation: Without the GENERIC statement 
Present, a non-intrinsic processor iunection contains: 


1. An argument of the wrong type. 

2. More than one argument not all of the same 
type. 

3. An argument which was an array naine. 

4. An argument which was a name that appeared 


in an EXTERNAL statement. 


Severity: 4; warning. The function is assumed to be 
user-supplied. 


Programmer Response: Correct the argument. 
DATA STMT ERROR IN ARRAY, 


Explanation: A redefinition of a subsection of an 
array is attempted. 


Severity: 4; warning. 


Programmer Response: Review the DATA statement 
and correct redefinitions. 


INCONSISTENT FUNCT REF. 

Explanation: A non-intrinsic processor function that 
is either non-generic (or the GENERIC statement is 
not present) has a parameter list that does not agree 
with the original reference. 


Severity: 8; output text not generated. 


Programmer Response: Correct the parameter list or 
specify the proper function. 
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DIRECT ACCESS DEV OPTNS. 97 


Explanation: Two or more conflicting options have 
been specified: 


A. Two buffers were specified for a direct access 
file. SHRBUFF was indicated in the option 
statement; NOSHRBUFF is assumed and two 
buffers are used. 


B. For Model 15 with Program Number 5704-FO2 
only: SHRBUFF and EXTBUF have both been 
specified for a direct access file. NOSHRBUFF 98 
and EXTBUF are assumed. 


Severity: 4; warning. 
Programmer Response: 


A. If NOSHRBUFF is desired, change *PROCESS 
statement to indicate NOSHRBUFF. If 
SHRBUFF is desired, change the DEVICE 
option statement to indicate one buffer. 


B. If NOSHRBUFF is desired, change the 
“PROCESS statement to indicate NOSHRBUFF. 
if SHRBUFF is desired, change the *PROCESS 
statement to indicate NOEXTBUF. 


SEO DISK DEVICE OPTIONS. 99 
Explanation: BLOCKSIZE was not 256 or a valid 


submultiple of 256 (128, 64, 32, 16). 256 is assumed 
as the BLOCKSIZE. 


Severity: 4; warning. 


Programmer Response: Specify a valid BLOCKSIZE. 


DAD/DEFINE FILE MISMATCH. 


Explanation: The number of define file statements 
does not equal the number of direct access device 
option statements, or the logical unit number(s) does 
not match. 


Severity: 4; warning. 


Programmer Response: Add the missing statement(s) 
or correct the statement(s). 
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STATEMENT NUMBER !S UNREFERENCED. 


Explanation: The statement is not referred to any- 
where in the program. 


Severity: 4; warning. 


Programmer Response: Remove extraneous state- 
ment numbers; correct statement numbers that may 
have been specified incorrectly. 


UNDEF VAR NAME, iNDICATED BY ‘U" IN MAP. 


Explanation: One or more variables are not defined. 
That is, the variable was not assigned a value in the 
program unit. The varasie did not appear on the 
left of an equal sign (=), ina DATA statement, as a 
dummy argument in a SUBROUTINE or FUNCTION 
statement, or in the input/output list ina READ 
statement. The variable(s) are identified by a ‘U’ 
under the AT column of the storage map. 


Severity: 4; warning. 


Programmer Response: Remove extraneous variables; 
correct variable names that may have been specified 
incorrectly. 


INTERNAL TEXT FORMAT EXCEEDS CORE SIZE. 


Explanation: The compiled orogram is too large to 
be contained in working storage, and compilation 
cannot continue. 


Severity: 8; compilation is terminated inumediately. 


Programmer Response: Reduce the size of the pro- 
gram by subdividing it into subprograms. or by 
eliminating unnecessa!y parts of the progiam itor 
example, reducing the number of CALL arguments 
by using COMMON where possible}, or by increasing 
the partition size for the program, or by specifying 
SHRBUFF on the *PROCESS statement. 


$FONM7 exponentiation subprogram 184 
$FOMB exnanentiation subprearam 185 
SFOMS exponentiation subprograny 185 
SFOMA exponentiation subprogram 186 
$FOMB exnunentiation subprogram 186 
$SFOME evoonentiation subprogram 187 

SFO exponentiation subprogram 188 
SFORT compiler nee, specified on LOAD statement 86 
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